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IDENTIFICATION 


PRODUCT CODE: AC-S836A-MC 

PRODUCT NAME: CZUDEAO PDP=11 UDA DISK DRV FMTR 
| PRODUCT DATE: 10-JULY-81 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
\ 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE gg eye gn et 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE “gg & OF THE RUNTIME SERVICES, _—o 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION O 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


THIS DOCUMENT i ee THE USAGE OF THE UNIBUS DISK ADAPTER 
(UDA) DISK FORMATTER FROM THE USER'S VIEWPOINT. THIS DOCUMENT DOES 
NOT DESCRIBE THE ACTUAL FORMATTING OF THE MEDIA, BUT RATHER THE 
POSSIBLE INTERACTIONS WITH A HUMAN OPERA™OR, 


THERE ARE FOUR GENERAL MODES OF FORMATTER OPERATION: 


O BUILD - THIS MODE IS GENERALLY USED BY MANUFACTURING PERSONAL 10 
INITIALLY FORMAT A NEW MEDIA. IT USES DATA STORED ON THE MEDIA, FROM 
A LOCATION WHICH IS NORMALLY INACCESSABLE, TO LOCATE AND REVECTOR THE 
BAD BLOCKS ON THE MEDIA. 


O REFORMAT - THIS MODE IS USED TO FORMAT A MEDIA WHICH HAS BEEN 
PREVIOUSLY bang dL AND IS BEING REFORMATTED TO CLEAR EXISTING DATA 
OR TO CHANGE THE MODE OF THE MEDIA (512/576 BYTES PER SECTOR). IT IS 
ASSUMED THAT THE FACTORY CONTROL TABLE (FCT) IS STILL IN TACT. 


O RESTORE - nap? Ra WILL ONLY BE RUN BY DIGITAL FIELD CIRCUS 
PERSONAL. IT PROVIDES AN EXTERNAL COPY OF THE FCT, — AT BUILD 
TIME AND STORED OFFLINE BY DIGITAL, TO THE UDA FORMATTER 


O RECONSTRUCT - THIS MODE IS USED WHEN NONE OF THE OTHER MODES ARE 
POSSIBLE. _IT DETECTS BAD BLOCKS BY PREFORMING REPETATIVE READ CHECKS 
OF EACH SECTOR. FOR THIS REASON, A RECONSTRUCT RUN TAKES CONSIDERABLY 
LONGER THAN THE OTHER MODES. 


1.2 SYSTEM REQUIREMENTS 

a va —,, 

28k M 

TERMINA AL 

PROGRAM LOAD DEVICE 

UDAS5O CONTROLLER 

1 OR MORE SDI COMPATIBLE DISK DRIVE 
1.3 RELATED DOCUMENTS AND STANDARDS 


DEC STD 166 


2.0 OPERATING INSTRUCTIONS 
THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
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FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 
2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC cee hi — 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE i so 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘'START' 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING ay TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1, * 7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS : DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 
/EOP: DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP._ ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE ~ /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 


EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
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fh tn CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
OR EXAMPLE, TYPE ''/TES:1=5'' INSTEAD OF ''/TESTS:1=5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND 


TESTS PASS FLAGS EOP UNITS 


CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 
EFFECT 


HALT ON ERROR - CONTROL IS RETURNE® TO - 
RUNTIME SERVICES COMMAND MODE 
LOOP ON ERROR 
INHIBIT ALL ERROR REPORTS 
INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 
INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 
DIRECT MESSAGES TO LINE PRINTER 
PRINT TEST NUMBER AS TEST EXECUTES 
"BELL'* ON ERROR 
UNATTENDED MODE (NO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS (DOES NOT . 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
_ STATISTICAL REPORTING) 
INHIBIT PROGRAM DROPPING OF UNITS 
EXECUTE AUTODROP CODE 
LOOP ON TEST 
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


START x X x X xX 

RESTART X X X xX xX 

CONT INUE x x xX 

PROCEED x 

DROP x 

ADD Xx 

PRINT 

DISPLAY x 

FLAGS 

ZFLAGS 

EXIT 

2.3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A 'BELL*’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : JER: BOE 


2.4 HARDWARE QUESTIONS 
THE DM PROGRAM (CURRENTLY KDUBAO.PAK) AND THE HOST PORTION OF THE 
FORMATTER (CURRENTLY ZDUBAO.BIN) MUST EXIST ON THE BOOT DEVICE. THE 
FORMATTER IS STARTED BY ENTERING: 
RUN ZDUBAO 


WHEN THE HOST PORTION HAS BEEN LOADED, SEVERAL _UNINFORMATIVE 
STATEMENTS WILL BE PRINTED, AND THEN THE FOLLOWING PROMPT WILL APPEAR: 


DR> 
RESPOND WITH: 
START/PASS:1 


THE NEXT QUESTION LOGGED WILL BE AN OPTION TO CHANGE THE DEFAULT RUN 
PARAMATERS OF THE FORMATTER. THE QUESTION IS 


CHANGE HW (L)? 


THE -URRENT hie aber ARE FOR ONE UDA AT_ ADDRESS 172150, FORMAT 
THE DRIVE WITH A UNIT PLUG NUMBER OF 0 USING THE EXISTING FCT, AND 
STOP IF THAT FCT IS BAD. IF THESE DEFAULTS ARE ACCEPTABLE ENTER ‘N’’ 
AND THE FORMAT WILL BEGIN. IF YOU ENTER ‘'Y’' THEN YOU WILL HAVE TO 
ANSWER THE FOLLOWING QUESTIONS 


UNITS (D)? 

THE ANSWER TO THIS QUESTION DEFINES HOW MANY UDAS ARE 10 RUN 
FORMATTERS CONCURRENTLY. A VALID RESPONSE IS A DECIMAL NUMBER FROM 1 
TO 64 (MEMORY AVAILABILITY PERMITTING). THE FOLLOWING BLOCK OF 
QUESTIONS WILL BE REPEATED ONCE FOR EACH UNIT (UDA). 

QUESTION 1: UNIBUS ADDRESS OF UDA (A)? XXXXXX 


WHERE XXXXXX IS THE CURRENT DEFAULT (INITIALLY 172150). ENTER THE 
APPROPRIATE EVEN ADDRESS OR ENTER <CR> TO TAKE THE DEFAULT. 


QUESTION 2: UNIT NUMBER TO FORMAT (D)? X 
X_IS_THE CURRENT DEFAULT (INITIALLY 0). ENTER THE NUMBER ON_ THE 


UNIT PLUG OF THE DRIVE TO BE_ FORMATTED (DO NOT CONFUSE THE UNIT 
NUMBER, 0-63, ASSIGNED BY XXDP+ WITH THE UNIT NUMBER OF THE DRIVE). 


SEQ 0006 


> nn ee 
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QUESTION 3: USE RESIDENT FCT (L)? X 


X IS THE CURRENT DEFAULT (INITIALLY Y). IF THIS QUESTION IS 
ANSWERED "Y'' THEN A REFORMAT MODE FORMAT WILL BE PREFORMED AND THE 
NEXT QUESTION POSED IS NUMBER 4. IF THIS QUESTION IS ANSWERED ‘N'' THE 
NEXT QUESTION POSED IS NUMBER 5. 


QUESTION 4: STOP IF RESIDENT FCT IS BAD (L)? X 

X IS THE CURRENT DEFAULT (INITIALLY Y). IF THIS QUESTION IS 
ANSWERED ‘‘Y’* A REFORMAT MODE FORMAT WILL BE PERFORMED, AND NO FURTHER 
QUESTIONS WILL BE ASKED. THE FORMAT (OF THIS DRIVE ONLY) WILL BE 
ABORTED IF THE FCT IS UNUSABLE. IF THIS QUESTION IS ANSWERED ‘N°’ THEN 
A RECONSTRUCT MODE FORMAT WILL BE PREFORMED EVEN IF THE FCT CAN NOT BE 
USED. QUESTIONING CONTINUES WITH QUESTION 6. 


QUESTION 5: DOWN LINE LOAD FCT (L)? X 


X IS THE CURRENT DEFAULT (INITIALLY N). ANSWERING THIS QUESTION 
"*Y'* RESULTS IN A RESTORE MODE FORMAT BEING RUN, AND NO MORE QUESTIONS 
WILL BE ASKED. ANSWERING ‘N’* CAUSES QUESTION 6 TO BE ASKED. 


QUESTION 6: 
SERIAL NUMBER TO BE ASSIGNED (TOTAL 4 WORDS) WORD 1? (D) 
WORD 2? (D) 


WORD 3? (D) 
WORD 4? (D) 


THIS IS THE SERIAL NUMBER TO BE ASSIGNED TO THE DISK IF THE FCT 
WAS NOT USED. THER: IS NO DEFAULT VALUE, A NON-ZERO VALUE SHOULD BE 
CHOSEN AND IT SHOULD BE UNIG@UE WITHIN THE INSTALLATION. NO FURTHER 
QUESTIONS ARE ASK. 


NOTE THAT ONCE THE QUESTIONS HAVE BEEN ANSWERED FOR EACH UNIT, 
THOSE ANSWERS BECOME THE DEFAULT FOR THAT UNIT. 


IF QUESTION 5 WAS ANSWERED ‘’Y’', THEN QUESTION 7 IS ASKED. 
QUESTION 7: ENTER FILE NAME FOR DOWN LINE LOAD (A)? XXXXXX.YYY 


XXXXXM.YYY IS THE FILE NAME AND EXTENTION OF THE BAD SECTOR FILE 
IS USED BY THE FORMATTER. IF A NONEXISTENT FILE IS SPECIFIED, THE 
THE FORMATTER PRONTS A LOOK UP ERROR AND RETURNS TO THE MONITOR. 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A bd i 

‘A CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
ARAMETERS. THESE PARAMETERS WILL GOVERN SOME Jeng ie oo ECIFIC 

OPERATION MODES. YOU WILL BE PROMPTED BY ‘‘CHANGE SW 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYP TING. 

""y'', THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTION MUST BE ANSWERED: 


SEQ 0007 
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DATE VAX FORMAT (TOTAL 4 WORDS) WORD 1? (D) 
WORD 2? (D) 


WORD 3? (D) 
WORD 4? (D) 


THIS IS THE DATE TO BE ASSIGNED TO THE MOST RECENT DATE OF FORMAT 
FCT OF EACH DRIVE FORMATTED. THE DEFAULT IS ZERO. 
2.6 QUICK START-UP PROCEDURE (XXDP+) 
TQ) START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ‘'R NAME*', WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE "START"! 

5. ANSWER THE "‘CHANGE HW’* QUESTION WITH ‘'Y'' 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW’’ QUESTION WITH ‘N'' 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 
3.0 MESSAGES 
3.1 ERROR MESSAGES 

IF AN ERROR WAS ENCOUNTERED DURING FORMATTING, THE MESSAGE 

UDA FORMATTER ERROR OCCURED 

ERROR NUMBER REPORTED WAS XXX 

ERROR CODE WAS YYYYYY DECIMAL 

ERROR NUMBER MEANS: 

 EXPLAINATION 
UNIT-X = REMOVED FROM TESTING FOR REMAINDER OF PASS. 
IS LOGGED. XXX REPRESENTS THE INTERNAL FORMATTER ERROR NUMBER. IF 
THIS ERROR NUMBER IS KNOWN BY THE HOST PORTION OF THE FORMATTER. THEN 
THE ASCII MESSAGE DESCRIBING THIS ERROR IS ALSO LOGGED. YYYYYY {[S AN 
ADDITIONAL ERROR CODE. AN EXPLAINATION IS REPORTED WITH EACH ERROR. 
3.2 OTHER MESSAGES 
ONCE THE FORMATTER BEGINS EXECUTING, THIS MESSAGE IS PRINTED. 


FORMAT(S) BEGUN 


SEQ 0008 
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ONCE A CYLINDER HAS BEEN FORMATTED, THIS MESSAGE APFEARS. 
UNIT K = CYLINDER YYY COMPLETED 


: 8 Car ameee MESSAGE APPEARS IF THE UDASO HAS NOT COMMUNICATED WITH 
H of 


THE UDA HAS NOT RESPONDED LATELY 
THIS COULD OCCUR IF THE UDA IS DOING A LONG SERIES OF CALCULATIONS 
OR INDEED IS HUNG. 
4.0 PERFORMANCE AND PROGRESS REPORTS 
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP’* SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


THE FORMAT HAS BEEN SUCCESSFULLY COMPLETED WHEN THE MESSAGE 


FORMAT SUCCESSFULLY COMPLETED 
IS LOGGED. 


SEQ 0009 
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2 .TITLE CZUDEAO PDP=11 UDA DISK FORMATTER 
3 “SBTTL PROGRAM HEADER 
¥ “NLIST CND,LD,BEX 
. .MCALL SVC : 
7 000000 SVC ; INITIALIZE SUPERVISOR MACROS 
000003 C$REVISION=3 7 
000003 CSEDIT=3 
177777 SVCINS==1 
177777 SVCTST==1 
| 177777 5VCSUB== 
177777 SVCGBL=-1 
177777 SVCTAG==1 
000012 RADIX 10 
000000 CSRESERV=0 
000001 CSETST=1 
000002 C$BSUB=2 
| 000003 C$ESUB=3 
4 C$BSEG=4 
000005 CSESEG=5 
C$CLP1= 
000007 C$RDBU=7 
000010 CSESCAPE=8 
000011 CSINIT=9 
000012 CSCLEAN=10 
000013 ($TPRI=11 
000014 C$PNTB=12 
000015 CSPNTX=13 
000016 CSPNTS=14 
000017 CSPNTF=15 
000020 CSINLP=16 
. 000021 C$RFLA=17 
000022 C$BRK=18 
000023 C$MSG=19 
000024 C$DRPT=20 
000025 C$RPT=21 
0000 C$GETB=22 
CGE TW=23 
C$GPLO=24 
CSMEM=25 
CSEXIT=26 
C$RESET=27 
CSOPEN=28 
C$CLOS=29 
C$CVEC=30 
C$SVEC=31 
C$GPRI=32 
C$SPRI=33 
C$GPHRD=34 
$GMAN= 
C$DCLN=36 
CSCEFG=37 
CS$SEFG=38 
C$REF G=39 
C$MANI=40 
C$DODU=41 


C$AU=42 
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000052 C$DuU=43 
000054 CSERSF =44 
000055 CSERDF=45 
000056 CSERHRD=46 
000057 CSERSOF T=47 
000060 CSERROR=48 
000061 C$AUTO=49 
2 C$CLCK=50 
000377 C$010=255 
000010 RADIX 
000035 ESLOAD=35 
002100 ESEND=2100 
000000 TSTESTNUM=0 
000000 T$S =0 
000000 TSERRNUM=0 
010000 TS TAGNUM= 10000 
010000 TSLSYM=10000 
177777 TSTAGLEV=-1 
177777 TSNESTLEV=~1 
177777 TSSAVLEV=-1 
177777 TSSEGLEV=-1 
177777 TSTSTMAC=~1 
000000 TSTSTSEQ=0 
TSPTNUM=0 
000000 TSLAST= 
T ID=0 
000001 FSTEST=1 
000002 F $SUB=2 
3 Aon t mt 
000005 F$SOF T=5 
000006 FSINIT= 
000007 FSCLEAN=7 
000010 FSSRV=10 
000011 F $MSG=11 
000012 F$RPT=12 
000013 F$HW=13 
000014 FSSW=14 
000015 F$AU=15 
900016 - F$DU=16 
000017 F =17 
000020 F $AUTO=20 
000021 F$PROT=21 
F $BGN=40 
000041 FSEND=41 
000050 F SJMP=50 
1 1$MOD=F SEND 
000041 ISTST=F SEND 
000041 I$SUB=F $ 
000041 ISSEG=F SEND 
000041 ISINI T=F SEND 
000041 ISCLN=F SEND 
000041 I$SRV=F SEND 
000041 ISMSG=F SE 
000041 I$RPT=F SEND 


000041 I $AU=F SEND 
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1 1$DU=F SEND 


GSPRML=0 


GS$RADA=6*“*D16 


G$CNTOP=1**D128 


M=2 
XSALWAYS=0**D16 
X$TRUE=1**D16 
X$FALSE=2**D16 
OSBGNSF T=0 


0 
S$LSYM=TS$LSYM 
JSJMP=167 
-11F NDF ASSEMBLY, ASSEMBL Y=10 
-1I1F NDF DIAGMCALLS, DIAGMCALLS=0 
-I1F EQ DIAGMCALLS 
-MCALL MS$MCHI GH 
M$MCHI GH 


-ENDC 
-IF EQ ASSEMBLY-10 
SMCALL MSMCL OW 


: CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 
3 TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 

é SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS. YOU MAY 

: CHANGE THE SYMBOLS AT ANY POINT IN THIS PROGRAM, 


SVCINS= 0 3; INSTRUCTIONS 





PROGRAM HEADER 


2 
25 002000 


002000 
002000 
002000 


31 
32 002000 


000000 
000000 
000000 
000000 


002000 


000040 


000000 
000000 
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SVCTST= 0 ; TEST TAGS 
SVCSUB= 0 ; SUBTEST TAGS 
SVCGBL= 0 : GLOBAL TAGS 
SVCTAG= 0 ; OTHER TAGS 
-ENABL ARS 
-ENABL AMA 
* 2000 


BGNMOD 
-MCALL M$GNGBL ,MSPUSH 
-IF NE FSEND-1$MOD 
-ERROR ;"BGNMOD"’ IN MOD 
-MEXIT 


-EN 
MSPUSH TS$NS,TSNESTLEV,FSMOD 
-MCALL MSINCR,MSSETS 

MSINCR _TSNESTLEV 
TSNESTLEV=T$NESTLEV+1 

M$SETS _TSNS,\TSNESTLEV,FSMOD 
TSNSO=F $MOD 


a 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


_—— 
* 


POINTER BGNRPT ,BGNSW,BGNS?-T ,ERRTBL ,BGNSE TUP 
.-IRP PX,<BGNRPT ,BGNSW,BGNSFT,ERRTBL,BGNSETUP,,,,> 
-IF IDN pi che 


0 
OSERRTBL=" 
O$SETUP=1 
O$SPOINTER=1 
-MEXIT 


-ENDC 
-IF IDN <NONE>,<PX> 
FT=0 


O$DU=0 
OSERRTBL=0. 
O$SETUP=0 
O$POINTER=1 





SEQ 0014 
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-MEXIT 


~ENDC 

~I1F IDN <BGNSFT>,<PX> 
OSBGNSF T=1 
O$SPOINTER=1 


.ENDC 
“IF IDN <BGNRPT>,<PX> 
OSARGNRPT=1 
OSPOINTER=1 


-ENDC 

IF IDN <BGNSW>,<PX> 
O$GNSW=1 

O$POINTER=1 


-ENDC 
-IF IDN <APTSTAT>,<PX> ; 
O$SAPTS=1 
O$SPOINTER=1 
-ENDC 
-IF IDN <BGNAU>,<PX> 
O$AU=1 
O$POINTER=1 
.-ENDC 
-IF IDN <BGNDU>,<PX> 
O$DU=1 
O$SPOINTER=1 


-ENDC 
IF IDN <ERRTBL>,<PX> 
O$SERRTBL=1 
O$SPOINTER=1 


-ENDC . 
IF IDN <BGNSETUP>,<PX> 
O$SETUP=1 
> gece 1 


- ENDM 
-IF IDN <ALL>,<BGNRPT> 
O$BGNSF T=1 


O$DU=1 

OSERRTBL =1 

O$SETUP=1 

OSPOINTER=1 ; 
»MEXIT 


- ENDC 
IF IDN <NONE>,<BGNRPT> 


0 
OSPOINTER= 1 


D2 
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000001 
000001 


ot 
-IF IDN <BGNSFT>,<BGNRPT> 
SBGNSF T=1 


O$BGN 
OSPOINTER=1 
NDC 
IF IDN <BGNRPT>,<BGNRPT> 
O$BGNRPT=1 
O$SPOINTER=1 
-ENDC 
-IF IDN <BGNSW>,<BGNRPT> 


O$GNSW=1 
+ paper 


EN 

-IF IDN <APTSTAT>,<BGNRPT> 
O$APTS=1 

a > sana 


EN C ‘ 
-IF IDN <BGNAU>,<BGNRPT> 
O$AU=1 

O$SPOINTER=1 

-ENDC 

-IF IDN <BGNDU>,<BGNRPT> 
O$DU=1 

O$POINTER=1 

-IF IDN <ERRTBL>,<BGNRPT> 


O$SERRTBL=1 
O$POINTER=1 


-ENDC 
-IF IDN <BGNSETUP>, <BGNRPT> 
O$SETUP=1 
O$SPOINTER=1 
- ENDC 


-IF IDN <ALL>,<BGNSW> 
O$SBGNSF T=1 


OSERRTBL= 1 
O$SETUP=1 
O$POINTER=1 
-MEXIT 


-ENDC 
IF IDN asi . <BGNSW> 


O$DU=0 
O$SERRTBL=0 
O$SETUP=0 
O$POINTER=1 
-MEXIT 


SEQ 0016 


eee 


ee 
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000001 
000001 


-ENDC 
-IF IDN <BGNSFT>,<BGNSW> 
OS$BGNSF T=1 
OS pee =1 


DC 
-IF IDN <BGNRPT>,<BGNSW> 
O$SBGNRPT=1 
wc + abe =1 


-IF IDN <BGNSW>,<BGNSW> 
OS$GNSW=1 
O$SPOINTER=1 
NDC 


-EN 
-IF IDN <APTSTAT>,<BGNSW> 
O$APTS=1 

O$POINTER=1 


- ENDC 

-I1F IDN <BGNAU>,<BGNSW> 
O$AU=1 
O$SPOINTER=1 


-ENDC 

-IF IDN <BGNDU>,<BGNSW> 
O$DU=1 

O$POINTER=1 


-ENDC 
-IF IDN <ERRTBL>,<BGNSW> 
O$SERRTBL=1 
O$SPOINTER=1 


-ENDC 
-IF IDN <BGNSETUP>,<BGNSW> 
O$SETUP=1 

O$SPOINTER=1 


-ENDC 
-IF IDN <ALL>,<BGNSFT> 
$BGNSF T=1 


OSERRTBL= 1 

O$SETUP=1 

O$POINTER=1 
XIT 


NDC 
IF IDN <NONE>,<BGNSF T> 
$B T=0 


O$DU=0 
O$SERRTBL=0 
O$SETUP=0 
O$POINTER=1 
-MEXIT 


-ENDC 


SEQ 0017 


C 


aioe ogee UDA DISK FORMATT MACRO V04.00. 23=JUL=81 15:27:47 PAGE é. 7 
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000001 
000001 


-IF IDN <BGNSF T>,<BGNSF T> 
OSBGNSF T=1 
OSPOINTER=1 

- ENDC 

-IF IDN <BGNRPT>,<BGNSF T> 


O$BGNRPT=1 
OSPOINTER=1 


- ENDC 

-IF IDN <BGNSW>,<BGNSF T> 
O$GNSW=1 

O$SPOINTER=1 


- ENDC 

-IF IDN <APTSTAT>,<BGNSF T> 
O$SAPTS=1 

O$POINTER=1 


- ENDC 

-IF IDN <BGNAU>,<BGNSF T> 
O$AU=1 

O$SPOINTER=1 


- ENDC 
Bian IDN <BGNDU> , <BGNSF T> 
OSPOINTER=1 


-ENDC 
IF ean ict <BGNSF T> 
O$SERRTBL= 

OSPOINTER- =1 


NDC 
-IF IDN <BGNSETUP>,<BGNSF T> 
O$SETUP=1 
O$POINTER=1 


- ENDC 
IF re i <ERRTBL> 
O$BGN 
OSBENAPT= 
O$GNSW=1 
O$APTS=1 
O$AU=1 
O$DU=1 
O$SERRTBL=1 
O$SETUP=1 
O$POINTER=1 
XIT 


NDC 
IF _IDN <NONE>,<ERRTBL> 
SBGNSF T=0 


0 

OSERRTBL = 0 
O$SETUP=0 
O$POINTER=1 
-MEXIT 


-ENDC 
-IF IDN <BGNSFT>,<ERRTBL> 


SEQ 0018 


PROGRAM HEADER 


| 
| 
| 


000001 
000001 


- ENDC 
GNSF T=0 
O$DU=0 
ENDC 
O$BGNSF T=1 


— a eee 


G 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL-81 15:27:47 PAGE $9 


OSBGNSF T=1 
ee 1 
-IF IDN <BGNRPT>,<ERRTBL> 


O$BGNRPT=1 
o> * pene 


EN 
-IF IDN <BGNSW>,<ERRTBL > 
O$GNSW=1 

> eimai 


-EN C 

-1F IDN <APTSTAT>,<ERRTBL> 
O$APTS=1 

o> peas 1 


EN 

tls <BGNAU>, <ERRTBL> 
O$POINTER=1 

.ENDC 

-IF IDN <BGNDU>,<ERRTBL> 
O$DU=1 

— =] 


NDC 
-IF IDN <ERRTBL>,<ERRTBL> 
O$ERRTBL=1 
O$SPOINTER=1 
- ENDC 


-IF IDN <BGNSETUP>,<ERRTBL> 
O$SETUP=1 
o> gate 1 


-IF IDN <ALL>,<BGNSETUP> 
O$SBGNSF T=1 


O$DU=1 
O$SERRTBL=1 
O$SETUP=1 
O$POINTER=1 
»MEXIT 


IF IDN_<NONE>,<BGNSETUP> 
O$SBGNSF 


O$SERRTBL=0 
O$SETUP=0 
O$SPOINTER=1 
»MEXIT 


“IF IDN <BGNSFT>,<BGNSETUP> 


SEQ 0019 


ORMATT MA 0 2 
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ee 
.1F IDN <BGNRPT>,<BGNSE TUP> 
OSBGNRPT=1 
O$POINTER=1 
-ENDC 
tu IDN <BGNSW>, <8GNSE TUP> 


O$GNSW=1 
OSPOINTER=1 


-ENDC 

-IF IDN <APTSTAT>,<BGNSETUP> 
O$APTS=1 

wpa 


-EN 

.1F IDN <BGNAU>,<BGNSE TUP> 
O$AU= 

OSPOINTER=1 

-ENDC 

-I1F IDN <BGNDU>,<BGNSE TUP> 
O$DU=1 

O$POINTER=1 


-ENDC 

.IF IDN <ERRTBL>,<BGNSETUP> 
O$SERRTBL=1 

O$SPOINTER=1 


-I1F IDN <BGNSETUP>,<BGNSE TUP> 
000001 O$SETUP=1 
000001 O$POINTER=1 


-ENDC 

IF ++} ti <> 
O$BGN 
OSBORPT = i 
O$GNSW=1 
O$APTS=1 
O$AU=1 
O$DU=1 
O$SERRTBL=i 


O$DU=0 
OSERRTBL=0 
O$SE TUP=0 
O$POINTER=1 
-MEXIT 


- ENDC 

-IF IDN <BGNSFT>,<> 
OSBGNSF T=1 
O$SPOINTER=1 


SEQ 0020 


to-oo  O  ee  SC ee 
' 
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. ENDC 
-1F IDN <BGNRPT>,<> 
OSBGNRPT=1 
OSPOINTER=1 

NDC 


| .E 

| “IF IDN <BGNSW>,<> 
| OSGNSW=1 

| O$POINTER=1 


ENDC 
“IF IDN <APTSTAT>,<> 
OSAPTS=1 
OSPOINTER=1 
-ENDC 
IF IDN <BGNAU>,<> 


O$AU=1 
wr * paeny 


-ENDC 

-IF IDN <BGNDU>,<> 
O$DU=1 

o> pate: 


- ENDC 

.IF IDN <ERRTBL>,<> 
OS$ERRTBL=1 
OSPOINTER=1 


-ENDC 

.IF IDN <BGNSETUP>,<> 
O$SETUP=1 

w+ peosamc 


END 
-IF IDN test <> 
O$BGNSF T= 


O$DU=1 
OSERRTBL= 1 
O$SETUP=1 
O$SPOINTER=1 
-MEXIT 


.ENDC 
-IF IDN <NONE>, <> 


O$DU=0 
OSERRTBL=0 
O$SE TUP=0 
OSPOINTER=1 
-MEXIT 


-ENDC 
.1F IDN_<BGNSF I>, <> 
OSBGNSF T=1 
OSPOINTER=1 

-ENDC 


SEQ 0021 


J 
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IF IDN <BGNRPT>,<> 
OSBGNRPT=1 
OSPOINTER=1 

-ENDC 

-IF IDN <BGNSW>,<> 
OSGNSW=1 
OSPOINTER=1 

-ENDC 

.IF IDN <APTSTAT>,<> 
OSAPTS=1 
OSPOINTER=1 

. ENDC 

-IF IDN <BGNAU>,<> 
OSAU= 

OSPOINTER=1 

-ENDC 

-IF IDN <BGNDU>,<> 
O$DU=1 

OSPOINTER=1 

-IF IDN <ERRTBL>,<> 
OSERRTBL=1 
OSPOINTER=1 

-ENDC 

-IF IDN <BGNSETUP>,<> 
O$SSETUP=1 

+ pemeenen 


EN 
-IF IDN <ALL>,<> 
O$BGNSF T=1 


O$DU= 
OSERRTBL=1 
O$SETUP=1 
OSPOINTER=1 
»MEXIT 


-ENDC 
-IF IDN <NONE>,<> 
OSBGNSF T=0 


O$DU=0 
O$SERRTBL=0 
O$SETUP=0 
O$POINTER=1 
-MEXIT 


-ENDC 

-IF IDN <BGNSFT>,<> 
O$BGNSF T=1 

wt = aici 


-ENDC 
-IF IDN <BGNRPT>,<> 


K 2 
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O$SBGNRPT=1 
OSPOINTER=1 


-ENDC 

-IF IDN <BGNSW>,<> 
O$SGNSW=1 

OSPOINTER=1 

.~ENDC 

~IF IDN <APTSTAT>,<> 
O$SAPTS=1 

O$SPOINTER=1 

ENDC 


. N 

-1F IDN <BGNAU>,<> 
O$AU=1 

OSPOINTER=1 

ENDC 


. N 

-IF IDN <BGNDU>,<> 
O$DU=1 

OSPOINTER=1 

-ENDC 

IF IDN <ERRTBL>,<> 


O$SERRTBL=1 
—— 


END 

-IF IDN <BGNSETUP>,<> 
O$SETUP=1 

OSPOINTER=1 

-ENDC 

-IF IDN <ALL>,<> 
OSBGNSF T=1 


0 
O$SERRTBL=1 
O$SETUP=1 
O$POINTER=1 
»MEXIT 


- ENDC 
-IF IDN <NONE>,<> 


O$DU=0 
O$SERRTBL=0 
O$SETUP=0 
O$POINTER=1 
»MEXIT 

END 


J c 

-IF IDN <BGNSFT>,<> 
OSBGNSF T=1 
OSPOINTER=1 

-ENDC 

-IF IDN <BGNRPT>,<> 
O$BGNRPT=1 





‘Pie! 2a eR gee aig cur iia aime atin mn Ce omrara enemas: 
| 


L_ 2 
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O$SPOINTER=1 

-ENDC 

.IF IDN <BGNSW>,<> 
O$GNSW=1 

O$POINTER=1 

-ENDC 

“IF IDN <APTSTAT>,<> 
O$APTS=1 
ae =] 

yi Ls <BGNAU>, <> 
O$SPOINTER=1 

-ENDC 

Sle a <BGNDU>, <> 
O$SPOINTER=1 

-ENDC 

IF i pa, <> 
-* O$SERRT 

OSPOINTER- =1 

-IF IDN <BGNSETUP>, <> 
O$SETUP=1 
O$POINTER=1 

.~ENDC 

“IF EQ O$POINTER 
a sILL. ARGS. ON ‘POINTER’ 


wr" af la Wilde tent at Wet te at as te ae ee 
35 Y OPTIONAL POINTERS ARE NOT TO BE USED IN THE ‘HEA CHANGE 


%6 ; P01 INTER" TO CONTAIN THE CORRECT ARGUMENTS. IF NO OPTIONAL” 
37 ; POINTERS ARE TO BE USED, CHANGE ‘POINTER'' TO BE ‘POINTER NONE’’. 
- : ARGUMENT OPTION 
40 : BGNRPT REPORT CODE 
41 : BGNSW SOFTWARE TABLE . 
42 : BGNSF T SOFTWARE TABLE QUESTIONS 
43 : BGNAU ADD CODE 
44 : BGNDU DROP CODE 
of 3 ele er. iy * os 
4 PTETETTST TELE ST TT TT PETE TERETE TTT TP TCE TTTTT ETT T ETRE TEER ERE ER TERETE 
49 002000 HEADER ZUDFA0,B,0,1800.,1,PRI07 
-MCALL MS$HAPT, 
002000 MSHAPT ZUDFAO. B.0,1800.,1,PRI07 
-MCALL MS$GN GNGBL -MSGNINS, asevit -MSDATA 
jf § ZUDF AO 
“ERROR ; MISSING DIAG. NAME 
oe. 
002000 M$GNGBL LSNAME,<<:DIAGNOSTIC NAME>> 
2% MSGEN 


L $NAME 
.1F NB.<;DIAGNOSTIC NAME> 





2 
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002000 
002000 


002000 


002000 


002001 


002001 


000007 


132 


125 


000005 


MSGEN_ -LSNAME,: ,SVCGBL,<;DIAGNOSTIC NAME> 


iF LE _SVCGBL 
LSNAME : : 


-NLIST 
-ENDC ‘ 
-IF B,<;DIAGNOSTIC NAME 


- ENDC 

TSARGCNT=“D7 

-IRPC —CHAR,<ZUDFA0> 
MSGNINS <.ASCII /CHAR/> 
TSARGCNT=TSARGCNT=1 

-I1F LT TSARGCNT 


.E DM 
MSGNINS <.ASCII /Z/> 
-IF LT SVCINS 
eASCII /2Z/ 
- ENDC 
-IF EQ SVCINS 

«ASCII /2/ 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 


- ENDC 
TSARGCNT=TS$ARGCNT~1 
-IF LT TSARGCNT 


-ENDC 
MS$GNINS <.ASCII /U/> 
-IF LT SVCINS 

eASCII /U/ 
<MEXIT 

-ENDC 

-I1F EQ SVCINS 

eASCII /U/ 

-MEXIT 


-ENDC 
-IF GT SVCINS 
-LIST 
eNLIST 


- ENDC 
TSARGCNT=TS$ARGCNT~1 
-IF LT TSARGCNT 


we, LSNAME,:,SVCGBL, 


DIAGNOSTIC NAME 


> 
<> 


ent :PROG NAME TOO BIG 


coats :PROG NAME TOO BIG 


LSNAME : : 


eASCII /2/ 


-ASCII /U/ 


SEQ 0025 


N 2 
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002002 


002003 


002003 


0062004 


002004 


104 


106 


000003 


101 


000002 


ERROR ;PROG NAME TOO BIG 
-MEXIT 


-ENDC 
MSGNINS <.ASCII /D/> 
-IF LT SVCINS 
-ASCII /D/ 
XIT 


- ENDC 

-IF EQ SVCINS 
eASCII /D/ 

-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 


«NLIST 


- ENDC 

TSARGCNT=TSARGCNT=1 

-1F LT TSARGCNT 

«ERROR ;PROG NAME TOO BIG 
-MEXIT 


-ENDC 
M$GNINS <.ASCII /F/> 
-IF LT SVCINS 
eASCII /F/ 
-MEXIT 
-ENDC 
-I1F EQ SVCINS 

ASCII /F/ 
-ENDC 
-IF GT SVCINS 
-LIST 

«NLIST 

. ENDC 
TSARGCNT=TS$ARGCNT~1 
-I1F LT TSARGCNT 
«ERROR ;PROG NAME TOO BIG 
MEXIT 
- ENDC 
MSGNINS <.ASCII /A/> 
IF LT SVCINS 


-EN 
-1F EQ SVCINS 
eASCII /A/ 

-MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 

eNLIST 


. ENDC 
TSARGCNT=TS$ARGCNT~1 
-IF LT TSARGCNT 


«ASCII /D/ 


eASCII /F/ 


eASCII /A/ 


SEQ 0026 
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002005 


002005 


002006 


002006 


002006 


002007 


002007 


002007 


060 


000001 


000001 


000 


000 


MS$GNINS <.ASCII /0/> 
-IF LT SVCINS 
eASCII /0/ 


-ENDC 
-IF EQ SVCINS 
-ASCII /0/ 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 
«NLIST 


- ENDC 
TSARGCNT=T$ARGCNT=1 
-IF LT TSARGCNT 


oe :PROG NAME TOO BIG 


"REPT TSARGCNT 


0 
-MCALL py, 

- IRP <0> 
MSGNINS < “BYTE ND> 
MS$GNINS <.BYTE 0> 

LT SVCINS 


-IF GT SVCINS 
ST 
«NLIST 


E Oo 
a M$GNINS 
- RP N,<0> 
MSGNINS <.BYTE N> 


MS$GNINS <.BYTE 0> 


-IF_LT SVCINS 
. TE 0 
-MEXIT 
-ENDC 
IF EQ ~~ 
-MEXIT 


-ERROR ;PROG NAME TOO BIG 
EXIT 


-ASCII /0/ 


BYTE OQ 


SEQ 0027 








002010 


002010 


002010 
002010 


002010 


002010 


002011 


002011 


102 


c 2 
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.~ENDC 

-IF GT SVCINS 

LIST 
eNLIST 

~ENDC 

-IF NBB 

MSDATA Bek hg ELE </B/>,<<;REVISION LEVEL>> 
MSGNINS 

M$GNGBL iSREV, <<;REVISION LEVEL>> 

-MCALL MS$GEN 

. NB, LSREV 

.IF NB,<;REVISION LEVEL> 

M$GEN LSREV,:,.SVCGBL,<;REVISION LEVEL> 

-IF LE SVCGBL 

LSREV:: ;REVISION LEVEL 


eNLIST 


-ENDC 
-IF B,<;REVISION LEVEL> 
ae LSREV,:,SVCGBL.< > 


- ENDC 

-ENDC 

-IF B <;REVISION LEVEL> 
M$GNGBL L$REV 

-ENDC 
MSGNINS <.ASCII /B/> 
-IF LT SVCINS 

ASCII /B/ 

MEXIT 

-ENDC 

-IF EQ SVCINS 

ASCII = /B/ 

MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 

«NLIST 

- ENDC 

IFF 


“ERROR ; MISSING REV. LEVEL 
MSDATA L$REV, .ASCII,</?/>,<<;REVISION LEVEL>> 


-IF NBO 
MS$DATA LS$DEPO,.ASCI1,</0/>,<<;0>> 
CALL MSGNGBL ,MSGNINS 


F NB <;0> 
M$GNGBL L$DEPO, <<;0>> 
-MCALL MS$GEN 

. IF NB,LSDEPO 

IF NB. <:0> 


-BYTE 


LBREV:: 


-ASCII 


SEQ 0028 


D 3 
| CZUDEAO PDP=-11 UDA DISK FORMATT MACRO V04.00 23=JUL-81 15:27:47 PAGE 5-18 SEQ 0029 
PROGRAM HEADER 


002011 MSGEN LSDEPO,:,SVCGBL.<;0> 
. . «IF LE SVCGBL 
002011 LSDEPO:: 30 
-MEXIT 
~ENDC 
LIST 
LSDEPO:: 
-NLIST 
IF B,<;0> 
MSGEN LSDEPO,:,SVCGBL,< > 
~ENDC 
-ENDC 
~ENDC 
-IF B <;0> 
> io LSDEPO 
002011 M$GNINS <.ASCII /0/> 
~IF LT SVCINS 
. -ASCII /0/ 
-MEXIT 
~ENDC 
_ «IF EQ SVCINS 
002011 060 -ASCII /0/ 
sMEXIT 
. NDC 
-IF GT SVCINS 
-LIST 
: -ASCII /0/ 
-NLIST 
.-ENDC 
IFF 
.ERROR ;: MISSING DEPO. 
MSDATA i SDEPO, -ASCII,</?/>,<<;0>> 
. ENDC. 
-IF EQ O$SETUP 
“—— SUNIT..WORD, 0,<<;NUMBER OF UNITS>> 
002012 MSDATA LSUNIT.. .WORD, TSPTHV,<<;NUMBER OF UNITS>> 
-MCALL M$GNGBL : GNI NS 
-IF NB <;NUMBER OF UNITS> 
002012 M$GNGBL L$UNIT, <<;NUMBER OF UNITS>> 
-MCALL M$GEN 
. IF NB, LSUNIT 
- IF NB,<;NUMBER OF UNITS> 
002012 eo LSUNIT, : ,SVCGBL, <;NUMBER OF UNITS> 
002012 thodtes” sNUMBER OF UNITS 
-MEXIT 
-ENDC 
LIST 
LSUNIT:: 
-NLIST 


-IF B,<;NUMBER OF UNITS> 
iscen L$UNIT,:,SVCGBL,< > 


3S 
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002012 


002012 000001 


002014 


002014 


002014 
002014 


*IF EQ SVCINS 
WORD » 


-ENDC 
002014 aSCNI 
; WOR 
~ENDC 
002014 003410 


— ? 
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-ENDC 
-IF B <;NUMBER OF UNITS> 
MSGNGBL LSUNIT 
MSGNINS <.WORD TS$PTHV> 
IF LT SVCINS 
WORD TSPTHV 
-MEXIT 
- ENDC 
-IF EQ SVCINS 
«WORD TS$PTHV 
MEXIT 
- ENDC 
-IF GT SVCINS 
LIST 
. WORD 
«NLIST 
- ENDC 
-ENDC 


. 1800. 
-ERROR ; LONGEST TEST TIME MISSING 
M$DATA LSTIML,.WORD,O,<<;LONGEST TEST TIME>> 


ol FF 
MSDATA ici mete -<<;LONGEST TEST TIME>> 


ALL MS$GN 
IF NB <;LONGEST TEST TIME> 
MSGNGBL L$TIML,<<;LONGEST TEST TIME>> 
-MCALL MS$GEN 
-IF NB,LSTIML 
- IF NB,<;LONGEST TEST TIME> 
M$GEN  LSTIML,:,SVCGBL,<;LONGEST TEST TIME> 


IF LE ee. 
L$TIML sLONGEST TEST TIME 
tMEXIT: 
-ENDC 
LIST 
LSTIML:: 
-NLIST 


- ENDC 
-IF B,<;LONGEST TEST TIME> 
wo, L$TIML,:,SVCGBL,< > 


-ENDC 


IF B <;LONGEST TEST TIME> 
M$GNGBL LSTIML 


MSGNINS <.WORD 1800.> 3’ 


1800. 
»MEXIT 
-ENDC 


SESE a a a a a cc cc 


TSPTHV 


SEQ 0030 


nn 


F 3 
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~IF GT SVCINS 
LIST 
. WORD 1800. 
i eNLIST 
pes 
002016 MSDATA LSHPCP, .WORD,LSHARD,<<;POINTER TO H.W. QUES.>> 
-MCALL M$GNGBL , MSGNIN S 
-IF NB <; POINTER TO H.W. QUES.> 
002016 M$GNGBL LSHPCP, <<;POINTER TO H.W. QUES.>> 
MCALL MS$GEN 
.1F NB,LSHPCP 
IF NB.<:POINTER TO H.W. QUES.> 
002016 M$GEN LSHPCP, :,SVCGBL. <;POINTER TO H.W. QUES.> 
-IF LE SVCGBL 
002016 LSHPCP:: sPOINTER TO H.W. QUES. 
-MEXIT 
~ENDC 
LIST 
L$HPCP:: 
~NLIST 
. END 


-1F B,<;POINTER TO H.W. QUES.> 
wm; LSHPCP,:,SVCGBL.< > 


- ENDC 


-ENDC 
-IF B <;POINTER TO H.W. QUES.> 
MSGNGBL LSHPCP 


002016 M$GNINS <.WORD LS$HARD> 
IF LT SVCINS 
“WORD L$HARD 
-MEXIT 
- ENDC 
-IF EQ SVCINS 
002016 014734 -WORD  LS$HARD 
MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 
-WORD LS$HARD 
-NLIST 
END 


. c 
-I1F EQ O$BGNSFT 
M$DATA L$SPCP,.WORD,O,<<;POINTER TO S.W. QUES.>> 


002020 M$DATA L$SPCP,.WORD, L$SOFT, <<:POINTER TO S.W. QUES.>> 
.MCALL M$GNGBL .MSGNINS 


IF NB <;POINTER TO S.W. QUES 
002020 MS$GNGBL L$SPCP,<<;POINTER TO g. W. QUES.>> 
-MCALL M$GEN 
IF NB,L$SPCP 
- IF NB,<;POINTER TO S.W. QUES 
002020 MS$GEN iSSPCP. :,SVCGAL.<; POINTER TO S.W. QUES.> 


* -IF LE SVCGBL 
002020 L$SPCP:: :POINTER TO S.W. QUES. 





ee Se — - 
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LMEXIT 
~ENDC 
“LIST 

.NLIST 


- ENDC 
-IF 8,<;POINTER TO S.W. QUES.> 
~*; LSSPCP,:,SVCGBL,< > 


- 


M$GNGBL L$SPCF 


- ENDC 

002020 M$GNINS <.WORD L$SOFT> 
-IF LT SVCINS 

<3yP LSSOF T 


: .IF €Q SVCINS 
002020 015350 «WORD LS$SOFT 


-IF GT SVCINS 


-NLIST 


002022 MSDATA LS$HPTP,.WORD,L$HW,<<;PTR. TO DEF. 


-MCALL MS$GNGBL ,MSGNINS 
IF NB <;PTR. TO DEF. H.W. PTABLE> 


002022 M$GNGBL L$HPTP,<<;PTR. TO DEF. H.W. PTABLE>> 


-MCALL M$GEN 


IF NB.<;PTR. TO DEF. H.W. PTABLE> 
002022 MSGEN LSHPTP, :,SVCGBL .<:PTR. TO DEF. 
L 


| 

| . : 

“IF B <:POINTER TO S.W. QUES.> 
.IF LE SVC 


-NLIST 


- ENDC 
-IF B,<;PTR. TO DEF. H.W. PTABLE> 
M$GEN LS$HPTP,:,SVCGBL,< > 


- ENDC 
- ENDC 
- ENDC 
-IF B <;PTR. TO DEF. H.W. PTABLE> 
oe 1b LSHPTP 
002022 MS$GNINS <.WORD L$HWw> 
IF LT SVCINS 
WORD L$HW 


H.W. PTABLE>> 


H.W. PTABLE> 
002022 LS$HPTP:: ;PTR. TO DEF. H.W. PTABLE 


LSSPCP:: 


«WORD LS$SOFT 


LSHPTP: : 


SEQ 0032 
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ce 


-ENDC 
-IF EQ SVCINS 
002022 002130 -WORD L$HW 


"IF GT SVCINS 


-NLIST 


«WORD L$HW 


OSGNSW 
MSDATA L$SPTP,.WORD,O,<<;PTR. TO S.W. PTABLE>> 


002024 MSDATA L$SPTP,.WORD, L$Sw, <<:PTR, 
-MCALL MSGNGBL “MSGNINS 
"IF NB <:PTR. TO S.W. PTABLE> 


TO S.W. PTABLE>> 


002024 MS$GNGBL L$SPTP,<<:PTR. TO S.W. PTABLE>> 
MSGEN 


-MCALL 

-1F NB,LSSPTP 

-IF NB,<;PTR. TO S.W. PTABLE> 
002024 M$GEN L$SPTP,:,SVCGBL,<;PTR. TO 

IF LE SVCGBL 


002024 L$SPTP:: sPTR. TO S. 


-NLIST 


- ENDC 

-IF B,<;PTR. TO S.W. PTABLE> 
7 L$SPTP,:,SVCGBL,< > 
- ENDC 
-ENDC 
-IF B <;PTR, TO S.W. PTABLE> 
M$GNGBL L$SPTP 


002024 MSGNINS <.WORD 1$Sw> 
-IF LT SVCINS 
-WORD  L$SwW 
»MEXIT 
-ENDC 
-I1F EQ SVCINS 
002024 002150 -WORD L$SW 
-MEXIT 
-ENDC 
IF GT SVCINS 
«LIST 
«NLIST 
- ENDC 


com 
-IF NB <;DIAG. END ADDRESS> 
-MCALL M$GEN 





S.W. PTABLE> 
Ww. PTABLE 


LSSPTP:: 


«WORD i.$SW 


- ENDC 
MSDATA L$LADP,. ee Le -<<;DIAG. END ADDRESS>> 


M$GNGBL LS$LADP, <<;DIAG. END ADDRESS>> 


SEQ 0033 


pot ee 
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002026 
002026 


0C2026 


002026 015560 


002030 


002030 


002030 
002030 


IF er ADP 
IF NB.<;DIAG. END ADDRESS> 
MSGEN  LSLADP,:,SVCGBL,<;DIAG. END ADDRESS> 


-IF LE SVCGBL 
LSLADP:: ;DIAG. END ADDRESS 
-MEXIT 
~ENDC 
LIST 
LSLADP:: 
-NLIST 
. ND 
.IF 8,<;DIAG. END ADDRESS> 
MSGEN LSLADF,:,SVCGBL,< > 
-ENDC 
.~ENDC 
-ENDC 
.IF B <;DIAG. END ADDRESS> 
sacs thi 
M$GNINS <.WORD L$LAST> 
-IF LT SV CIN NS 
. WORD LSLAST 
MEXIT 
.-ENDC 
~IF EQ SVCINS 
.- WORD LSLAST 
MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 
.- WORD 
-NLIST 
-IF EQ OSAPTS 
MSDATA L$STA,.WORD,O, te sRESERVED FOR APT STA7S>> 
-MCALL M$GNGBL _MSGNIN 
~IF NB <; RESERVED FOR y= STATS> 
M$GNGBL L$STA, <<;RESERVED FOR APT STATS>> 
-MCALL a 
.IF NB,LSSTA 
- IF NB,<;RESERVED FOR APT STATS> 
M$GEN LSSTA,:,SVCGBL.<;RESERVED FOR APT STATS> 
IF LE SVCGBL 
L$STA:: sRESERVED FOR APT STATS 
-MEXIT 
-ENDC 
LIST 
LS$STA:: 
-NLIST 
END 


-IF B,<:RESERVED FOR APT STATS> 
MSGEN ‘L$STA,:,SVCGBL.< > 


C 
“IF B <;RESERVED FOR APT STATS> 
M$GNGBI. LS$STA 


L$LAST 


SEQ 0034 
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002030 


0062030 000000 


002032 


002032 


002032 
002032 


002032 


002032 000000 





M$GNINS <.WORD 0> 

-IF LT SVCINS 

-WORD 0O 

-MEXIT 

- ENDC 

-I1F EQ SVCINS 
-WORD 0 

-MEXIT 


-ENDC 
-IF GT SVCINS 


«NLIST 
-ENDC 


- WORD 


-1FF 
MSDATA L$STA,.WORD,0,<<;RESERVED FOR APT STATS>> 


-ENDC 
MSDATA L$CO,.WORD,0 
-MCALL MS$GNGBL ,MSGNINS 


.1F NB 
MSGNGBL L$CO,<> 
-ENDC 
ae B 
MSGNGBL L$CO 
-MCALL  M$GEN 
-IF NB.L$CO 
olf NB, 
MSGEN © L$CO,:,SVCGBL. 
~ENDC 
.IF B, 
MSGEN. L$CO,:,SVCGBL.< > 
sHF LE SvCGaL 


»NLIST 


ot C 
M$GNINS <.WORD 0> 
IF . aaa 


-WOR 

-MEXIT 

- ENDC 

-IF EQ SVCINS 
- WORD 


-MEXIT 
-ENDC 
-IF GT SVCINS 
«NLIST 


- ENDC 
8 4 


L$CO:: 


- WORD 


0 


SEQ 0035 


-—----— 
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002034 


002034 


002034 
002034 


-ENDC 
| 002034 
| WORD 
| IF 
002034 000001 
| “ENDC 
IST 
IFF 
002036 
CAL 
002036 
"IF NB, 


.ERROR ; MISSING DIAG. TYPE 

MSDATA LS$DTYP, .WORD,0.<<:DIAGNOSTIC TYPE>> 
“IF IDN O 

MSDATA OSD TYP..uORD. 1,<<;DIAGNOSTIC TYPE>> 
oar IDN 

MSDATA 'sorvp, word, 1,<<:DIAGNOSTIC TYPE>> 
.MCALL MSGNGBL.MSGNINS 


IF NB <;DIAGNOSTIC TYPE> 
MS$GNGBL REGEN 2<<;DIAGNOSTIC TYPE>> 


SDTYP 
IF _NB.<;DIAGNOSTIC TYPE> 
M$GEN  L$DTYP,:,SVCGBL,<;DIAGNOSTIC TYPE> 
IF = 3 SVCGBL 
LSDTYP:: :DIAGNOSTIC TYPE 


-NLIST 


IF B,<;DIAGNOSTIC TYPE> 
MSGEN L$DTYP,:,SVCGBL,< 


C 
sae @ <5 vt “ee TYPE> 
M$GNGBL L$DT 


MS$GNINS <.WORD 1> 
olf Of ~~ 


-IF EQ SVCINS 
- WORD 


-IF GT SVCINS 
«NLIST 


MSDATA LS$DTYP,.WORD,0,<<;DIAGNOSTIC TYPE>> 
-ERROR ; INVALID DIAG. TYPE (O=DIAG, 1=EXERCISER) 


MSDATA LS$APT,. ithe <<;APT EXPANSION>> 


M$GNGBL 
“IF NB <; APT EXPANSIONS 
M$GNGBL L$APT, <<;APT EXPANSION>> 
-MCALL M$GEN 
LSAPT 


LSDTYP:: 


«WORD 


j 


SEQ 0036 


002036 
002036 


002036 


002036 


002040 


002040 


002040 
002040 


002040 


000000 


_@ 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL-81 15:27:47 PAGE 5-26 
PROGRAM HEADER 


-1F NB,<;APT EXPANSION> 
M$GEN LSAPT = .SVCGBL.<:APT EXPANS I ON> 


APT EXPANSION 


LSAPT:: 


«NLIST 


.ENDC 
.IF B,<:;APT EXPANSION> 
MSGEN  LS$APT,:,SVCGBL,< > 


. C 
-IF B <;APT EXPANSION> 
MSGNGBL LSAPT 


-ENDC 

M$GNINS <.WORD 0> 
-IF LT SVCINS 
-WORD 0 


»MEXIT 

-ENDC 

-IF EQ SVCINS 
- WORD 

-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 
-NLIST 


- ENDC 
MSDATA LS$DTP,.WORD,LSDISPATCH,<<;PTR. TO DISPATCH TABLE>> 
-MCALL MS$GNGBL .M$GNINS 

IF NB <;PTR. TO DISPATCH TABLE> 
M$GNGBL L$DTP,<<:PTR. TO DISPATCH TABLE>> 

-MCALL MS$GEN 

- IF NB,LSDTP 

- IF NB,<;PTR. TO DISPATCH TABLE> 
MS$GEN  LSDTP,:,SVCGBL,<;PTR. TO DISPATCH TABLE> 
-IF LE SVCGBL ; 
LS$DTP:: PTR. TO DISPATCH TABLE 


LSDTP:: 


-NLIST 
-ENDC 


-IF B,<;PTR. TO DISPATCH TABLE> 
_—_ LS$DTP,:,SVCGBL,< > 


-ENDC 

-ENDC 

-IF B <;PTR. TO DISPATCH TABLE> 
a L$DTP 


«END 
M$GNINS <.WORD L$DISPATCH> 





SEQ 0037 
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002040 002124 


002042 


* 002042 


002042 
002042 


092042 


002042 000340 


002044 


-IF LT SVCINS 
it LSDISPATCH 


-ENDC 
-IF EQ SVCINS 

«WORD L$DISPATCH 
-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 


- WORD 
«NLIST 


-ENDC 
-IF B PRIO7 
MSDATA L$PRIO,.WORD,0,<<;DIAGNOSTIC RUN PRIORITY>> 


 IFF 
MSDATA LS$PRIO,.WORD.PRIO7,<<;DIAGNOSTIC RUN PRIORITY>> 
-MCALL MSGNGBL ,MSGNINS 

IF NB <;DIAGNOSTIC RUN PRIORITY 
MSGNGBL L$PRIO,<<;DIAGNOSTIC RUN. PRIORITY>> 

-MCALL MS$GEN 

- IF NB,LSPRIO 

-1F NB,<;DIAGNOSTIC RUN PRIORITY> 
MSGEN LSPRIO, : ,SVCGBL , 2<;DIAGNOSTIC RUN PRIORITY> 


;DIAGNOSTIC RUN PRIORITY 


MIST L$PRIO:: 


- ENDC 
-IF B,<;DIAGNOSTIC RUN PRIORITY> 
MSGEN LSPRIO,:,SVCGBL,< > 


-ENDC 
-ENDC 
-ENDC 
-IF B <;DIAGNOSTIC RUN PRIORITY> 
MSGNGBL L$PRIO 
-ENDC 
M$GNINS <.WORD PRIO7> 
-IF LT SVCINS 
-WORD PRIO7 
yy 
-IF EQ SVCINS 
«WORD PRIO7 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 


- WORD 
-NLIST 


-ENDC 
-ENDC 


MSHNAP 
-MCALL MSDATA,M$WORD ,.M$GNINS 


L$DISPATCH 


PR107 


SEQ 0038 
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002044 


002044 


002044 
002044 


002044 


00- 244 


002046 


CO<U46 


002046 
002046 





MSDATA LSENVI,.WORD, Oe <<;FLAGS DESCRIBE HOW IT WAS SETUP>> 
-MCALL MSGNGBL .MSGNIN 

-1F NB <;FLAGS SESCRIBE HOW IT WAS a 

MSGNGBL LSENVI,<<;FLAGS DESCRIBE HOW IT WAS SETUP>> 

-MCALL MSGEN 


-LSENVI 
IF _NB.<:FLAGS DESCRIBE HOW IT WAS SETUP> 
MS$GEN  LSENVI,:,SVCGBL.<;FLAGS DESCRIBE HOW IT WAS SETUP> 
-IF LE SVCGBL 
LSENVI:: FLASS DESCRIBE HOW IT WAS SETUP 


na 1st LSENVI:: 


. ENDC 
-IF B,<;FLAGS DESCRIBE HOW IT WAS SETUP> 
ae LSENVI,:,SVCGBL,< > 


- ENDC 

-ENDC 

-IF B <;FLAGS DESCRIBE HOW IT WAS SETUP> 
MSGNGBL “L LSENVI 
M$GNINS <.WORD 0> 

-IF LT SVCINS 

. WORD 

“MEXIT 

-ENDC 

-I1F EQ SVCINS 

-WORD 0 

-MEXIT 

« ENDC 

-IF GT SVCINS 

-LIST 

«WORD 
«NLIST 

- ENDC 
MSDATA L$EXP1,.WORD, Oe <<; EXPANSION: WORD>> 
-MCALL MSGNGBL .MSGNIN 


L, 
IF NB <;EXPANSION WORD 
M$GNGBL er 2<<; EXPANSION WORD>> 


(SExPi:: EXPANSION WORD 


2 1ST LSEXP1:: 


-ENDC 
-I1F B,<;EXPANSION WORD> 
wy LSEXP1,:,SVCGBL.< > 


SEQ 0039 




























002046 


002046 


002050 


002050 


002050 
002050 


002050 


002050 


000000 


003 
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-ENDC 
-ENDC 
-IF B <;EXPANSION WORD> 
MSGNGBL’ L$EXP1 
-ENDC 
MSGNINS <.WORD 0> 
-IF LT SVCINS 
-WORD 0 
-MEXIT 
- ENDC 
-IF EQ wah 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 


»NLIST 


-ENDC 
MSDATA LS$MREV,.BYTE, ~ aia erates <<;SVC REV AND EDIT #>> 


-MCALL MS$GNGBL .MSGNIN 

-IF NB <;SVC_REV AND EDIT #> 
MSGNGBL LSMREV,<<;SVC REV AND EDIT #>> 

-MCALL MSGEN 

- IF NB,LSMREV 

IF _NB.<;SVC REV AND EDIT #> 
MSGEN eS or ean cht REV AND EDIT #> 


olf LE Sve 
LSMREV:: ;SVC REV AND EDIT # 


-NLIST 


- ENDC 
-IF B,<;SVC REV AND EDIT #> 
w~¥y LS$MREV,:,SVCGBL,< > 


- ENDC 

-ENDC 

-IF B <;SVC REV AND EDIT #> 
MSGNGBL "L LSMREV 
MSGNINS <.BYTE C$REVISION> 
-IF_LT SVCINS 

-BYTE C$REVISION 

»MEXIT 


- ENDC 
-IF EQ SVCINS 
~BYTE C$REVISION 
-MEXIT 
-ENDC 
-IF GT SVCINS 
»LIST 


«NLIST 
- ENDC 





LSMREV:: 


-BYTE C$REVISION 


SEQ 0040 


002051 


002051 003 


002052 


002052 


002052 
002052 


002052 


002052 000000 





* s 


MSGNINS <.BYTE CSEDIT> 
IF LT SVCINS 
BYTE CSEDIT 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
-BYTE C$EDIT 
-MEXIT 


» ENDC 
-IF GT SVCINS 
-LIST 
«NLIST 


- ENDC 
MSDATA LS$EF,.WORD,O 
-MCALL MS$GNGBL ,MSGNIN 
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-<<;DIAG. EVENT FLAGS>> 


“IF NB <;DIAG. EVENT PLAGS> 
MSGNGBL SEF -<<:DIAG. EVENT FLAGS>> 


-MCALL 
-IF NB,LSEF 


- IF NB,<;DIAG. EVENT FLAGS> 
M$GEN LSEF,:,SVCGBL,<;DIAG. EVENT FLAGS> 
I SVCGBL 


F LE 


«NLIST 


DIAG. EVENT FLAGS 


-ENDC 
-IF B,<;DIAG. EVENT FLAGS> 


- ENDC 


Pe LSEF,:,SVCGBL.< > 


-ENDC 
IF B<; at x EVENT FLAGS> 


M$GNGBL 


-ENDC 
MSGNINS <.WORD 
-IF LT SVCINS 
WORD 0 


»MEXIT 

-ENDC 

-IF EQ SVCINS 

-WORD 0 

-MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 

»NLIST 


~ENDC 

M$WORD 0 
Te es 
M$GNINS <.WORD N> 
~ENDM 


-BYTE C$EDIT 


LSEF:: 


-WORD 0 


SEQ 0041 
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002054 


.- 


002054 


002056 


002056 


002056 
002056 


002056 


002056 


002060 


002060 


000000 


000000 


M$GNINS <.WORD 0> 
-IF LT SVCINS 
WOR 0 


- WORD 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
. WORD 
-MEXIT 
ENDC 
LIF GT SVCINS 
-LIST 
-WORD 0 
«NLIST 


- ENDC 
MSDATA LS$SPC,.WORD,0O 
oT ta M$GNGBL ,M$GNINS 


. NB 

M$GNGBL L$SPC,<> 

-ENDC 

IF B 

MSGNGBL L$SPC 

-MCALL MS$GEN wife 
4-4 NB.LSSPC 

M$GEN LS$SPC,:,SVCGBL, 

- ENDC 


-IF B, 
M$GEN LS$SPC,:,SVCGBL.< > 
IF LE SVCGBL 


L$SPC:: 


- ENDC 
MS$GNINS <.WORD 0> 
-IF LT SVCINS 

WORD 0 


»MEXIT 
-ENDC 
-IF EQ SVCINS 
. WORD 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 
-WORD 0 
ENC «NLIST 
MSDATA LSDEVP,.WORD, Leoves 
-MCALL M$GNGBL ;MSGNINS 
.IF NB <; POINTER TO DEVICE TYPE LIST> 


MSGNGBL LS$DEVP,<<; POINTER TO DEVICE TYPE LIST>> 
-MCALL M$GEN 


2<<; POINTER TO DEVICE TYPE LIST>> 


SEQ 0042 
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-IF B,<; POINTER TO DEVICE TYPE LIST> 
oo, LSDEVP,:,SVCGBL,.< > 


ND 
ZENDC 
ZENDC 
JF 8_<: POINTER TO DEVICE TYPE LIST> 
| MSGNGBL LSDEVP 
4 
002060 MSGNINS <.WORD LSDVTYP> 
cs .IF LT SVCINS 
/ “WORD L$DVTYP 
_ “MEXIT 
~ENDC 
- LIF EQ SVCINS 
002060 002224 .WORD LSDVTYP 
.MEXIT 
“ENDC 
IF GT SVCINS 
-NLIST 


- IF EQ O$BGNRPT 
MSDATA LS$REPP,.WORD,O,<<;PTR. TO REPORT CODE>> 
MSDATA LS$REPP,.WORD,L$RPT,<<;PTR. TO REPORT CODE>> 
LL MS$GNGBL .MSGNINS 

IF NB <;PTR. TO REPORT CODE> 
MSGNGBL L$REPP,<<;PTR. TO REPORT CODE>> 

-MCALL MS$GEN 

31 NB,LSREPP 


F NB,<;PTR. TO REPORT CODE> 
M$GEN LSREPP, : ,SVCGBL , -<;PTR. TO REPORT CODE> 


ig 
LSREPP: : ;PTR. TO REPORT CODE 


«NLIST 
- ENDC 


.IF B,<;PTR. TO REPORT CODE> 
MSGEN LSREPP,:,SVCGBL.< > 


-ENDC 
~ENDC * 


IF NB,LSDEVP 

“IF NB.<; POINTER TO DEVICE TYPE LIST> 
002060 MSGEN_ LSDEVP,: SVCGBL , »<: POINTER TO DEVICE TYPE LIST> 
002060 (SDEVE: : : POINTER TO DEVICE TYPE LIST 

-MEXIT 

“ENDC 

“LIST 

.NLIST 
.ENDC 


LSDEVP:: 


-WORD L$DVTYP 


LSREPP: : 


SEQ 0043 


-———---------- 


F & \ 
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-IF B <;PTR. TO REPORT CODE> 
MS$GNGBL LSREPP 
-ENDC 


002062 MSGNINS <.WORD L$RPT> 
-IF LT SVCINS 
-WORD  L$RPT ; 
-MEXIT 
-ENDC 

IF EQ SVCINS 

002062 013656 -WORD L$RPT 


MEXIT 
[ENDC 
~ LIF GT SVCINS 
SLIST 


«WORD L$RPT 
»NLIST 
-ENDC 


- ENDC 
002064 MSDATA LSEXP4,.WORD,O 
-MCALL M$GNGBL ,.MSGNINS 


‘IF NB 
MSGNGBL LSEXP4,<> 
-ENDC 
.MCALL  M$GEN 
“IF NB,LSEXP4 
“IF NB, 
MSGEN  L$EXP4,:,SVCGBL. 
-ENDC 
002064 M$GEN L$EXP4,:,SVCGBL.< > 


-IF LE SVCGBL 
002064 LSEXP4:: 


tet LSEXP4:: 


| 
| 
-IF B 
002064 M$GNGBL LSEXP4 
- ENDC 
002064 M$GNINS <.WORD 0> 
IF LT SVCINS 
-WORD 0 
»-MEXIT 
- ENDC 
IF EQ SVCINS 
002064 000000 -WORD 0 
»MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 


-WORD 0 


- ENDC 
M$DATA L$EXP5S,.WORD,0 





RE 
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002066 


| 
002066 
002066 
002066 
002066 


002070 


002070 


002070 
002070 


000000 


7 MSGNGBL ,MSGNINS 
MS$GNGBL LSEXP5,<> 

- ENDC 

IF B 

M$GNGBL LSEXP5 

-MCALL MS$GEN 

.1F NB,LSEXP5S 


-1F NB, 
MSGEN LSEXP5,:,SVCGBL, 
m DC 


-IF B, 
MSGEN LS$EXP5,:,SVCGBL,< > 
° SVCGBL 


IF LE 
LSEXPS 
MEXIT 
.ENDC 
LIST 
LSEXP5S:: 
NLIST 
-ENDC 
.ENDC 
ENDC 
MSGNINS <.WORD 0O 
«if UT S¥ 
.~ WORD 
-MEXIT 
.ENDC 
-IF &Q SVCINS 
.~ WORD 0 
MEXIT 
-ENDC 
-IF GT SVCINS 
oA EST 
eNLIST 
~ENDC 
.IF EQ O$AU 
MSDATA L$AUT,.WORD,O,<<;PTR. TO ADD UNIT CODE>> 
MCALL M$GNGBL , MSGNINS 
“IF NB <;:PTR. T0 ADD UNIT CODE> 
MSGNGBL L$AUT, <<;PTR. TO ADD UNIT CODE>> 
-MCALL MS$GEN 
- IF NB,LSAUT 
- IF NB,<;PTR. TO ADD UNIT CODE> 
MS$GEN LSAUT,:,SVCGBL.<:PTR. TO ADD UNIT CODE> 
-IF LE SVCGBL 
LSAUT:: ;PTR. TO ADD UNIT CODE 
-MEXIT 
.ENDC 
LIST 
LSAUT:: 
eNLIST 
~ENDC 


-IF B,<;PTR. TO ADD UNIT CODE> 
MSGEN L$AUT,:,SVCGBL,< > 


. WORD 


SEQ 0045 
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002070 


002070 000000 


002072 


002072 


002072 
002072 


002072 


002072 000000 





-ENDC 


NDC 
IF 8 <;PTR. TO ADD UNIT CODE> 
MSGNGBL ’ L$AUT 


- ENDC 
MSGNINS <.WORD 0> 
«JF UT x ete 


“WORD 

oes” 

LIF EQ SVCINS 
. WORD 

-MEXIT 

END 


. C 
-IF GT SVCINS 
«LIST 
- WORD 
«NLIST 
- ENDC 


oIFF 
wo LSAUT,.WORD,L$AU,<<;PTR. TO ADD UNIT CODE>> 
.IF EQ O$DU 
worry LS$DUT,.WORD,O,<<;PTR. TO DROP UNIT CODE>> 
MCALL MS$GNGBL _MSGNIN 
“IF NB <:PTR. TO DROP UNIT CODE> 
M$GNGBL ($DuT, <<;PTR. TO DROP UNIT CODE>> 
-MCALL MS$GEN 
IF NB,LSDUT 
~I1F NB,<;PTR. TO DROP UNIT CODE> 
MSGEN  L$DUT, :,SVCGBL,<;PTR. TO DROP UNIT CODE> 


-IF LE SVCGBL 
L$DUT:: ;PTR. TO DROP UNIT CODE 
-MEXIT 
-ENDC 
LIST 
LSDUT:: 
-NLIST 
-ENDC 


-IF B,<;PTR. TO DROP UNIT CODE> 
MSGEN "LSDUT,:.SVCGBL,.< > 


ENDC 


-ENDC 
-IF B <;PTR. TO DROP UNIT CODE> 
ee L$DUT 


M$GNINS <.WORD 0> 
.IF LT SVCINS 
WORD 0 


-MEXIT 

-ENDC 

-I1F EQ SVCINS 
- WORD 

»MEXIT 


-ENDC 
-IF GT SVCINS 


SEQ 0046 





po nr ee ee 
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LIST 


-NLIST 
~ENDC 


~IFF 
MSDATA LSDUT,.WORD,LS$DU,<<;PTR. TO DROP UNIT CODE>> 
002074 MSDATA Sewcbi meok 0 2<<;LUN FOR EXERCISERS TO FILL>> 


! 

-MCALL MSGNGBL .MSGNINS 
IF NB <;LUN FOR EXERCISERS TO FILL> 

002074 MSGNGBL LSLUN,<<;LUN FOR EXERCISERS TO FILL>> 
-MCALL MSGEN 
-1F NB,LSLUN 
-1F NB,<;LUN FOR EXERCISERS TO FILL> 

002074 MSGEN  LSLUN,:,SVCGBL.<;LUN FOR EXERCISERS TO FILL> 
-IF LE SVCGBL 

002074 LSLUN:: ;LUN FOR EXERCISERS TO FILL 


NLIST LSLUN:: 


-IF B,<;LUN FOR EXERCISERS TO FILL> 
“hae L$LUN,:,SVCGBL,< > 


-1F 8 <;LUN FOR EXERCISERS TO FILL> 
+ a L$LUN 

002074 M$GNINS <.WORD (> 
IF LT SvCIN Ss 


-IF EQ SVCINS 
002074 000000 -WORD 0 


-IF GT SVCINS 
ST 


«WORD 0 
«NLIST 


002076 MSDATA LSDESP,.WORD, L$DESC -<<;POINTER TO DIAG. DESCRIPTION>> 
-MCALL MS$GNGBL ,MSGNINS 
IF NB <;POINTER TO DIAG. DESCRIPTION> 
002076 MSGNGBL L$DESP,<<;POINTER TO DIAG. DESCRIPTION>> 
-MCALL MS$GEN 
- IF NB,LSDESP 
- IF NB,<;POINTER TO DIAG. DESCRIPTION> 
002076 tank a7 titan aitaartetiags TO DIAG. DESCRIPTION> 
002076 LSDESP:: ;POINTER TO DIAG. DESCRIPTION 





[ao nn 
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LSDESP:: 
«-NLIST 


- ENDC 
-IF 8,<;POINTER TO DIAG. Be erin flies 
MSGEN LSDESP,:,SVCGBL, 


-ENDC 


| 

| 

| ENDC 
IF B <;POINTER TO DIAG. DESCRIPTION> 
—— LSDESP 


- ENDC 

002076 MSGNINS <.WORD LSDESC> 
-IF LT SVCINS 
-WORD  LS$DESC 
-MEXIT 


-ENDC 
-IF EQ SVCINS 

002076 002260 -WORD LS$DESC 
-MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 

«WORD L$DESC 
«NLIST 


- ENDC 

002100 MSDATA LSLOAD,EMT,ESLOAD 2<<;GENERATE SPECIAL AUTOLOAD EMT>> 
-MCALL MSGNGBL ,MSGNINS 
-1F NB <;GENERATE SPECIAL AUTOLOAD EMT> 


002100 MSGNGBL L$LOAD, <<;GENERATE SPECIAL AUTOLOAD EMT>> 
-MCALL MS$GEN 
IF NB,LSLOAD 
“IF NB.<;GENERATE SPECIAL AUTOLOAD EMT> 
002100 “xe LSLOAD, : .SVCGBL. ~<;GENERATE SPECIAL AUTOLOAD EMT> 
002100 aon ;GENERATE SPECIAL AUTOLOAD EMT 
- ENDC 
LIST 
LSLOAD: : 
-NLIST 


«ENDC 
-IF 8,<;GENERATE SPECIAL Fg een EMT> 
MSGEN L$LOAD,:,SVCGBL,< 


“ENDE 
-IF B <;GENERATE SPECIAL AUTOLOAD EMT> 
MSGNGBL "L L$LOAD 
002100 MSGNINS <EMT ESLOAD> 
-IF LT SVCINS 
EMT ESLOAD 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
002100 104035 EMT ESLOAD 
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-MEXIT 

-ENDC 

-IF GT SVCINS 
«LIST 


EMT E$LOAD 
eNLIST 


- ENDC 
-IF EQ OSERRTBL 
MSDATA LSETP,.WORD,0,<<;POINTER TO ERRTBL>> 


FF 

002102 MSDATA LSETP,.WORD,LSERRTBL.<<;POINTER TO ERRTBL>> 
-MCALL MSGNGBL ,MSGNINS 
-IF NB <;POINTER TO ERRTBL> 

002102 MSGNGBL LSETP,<<;POINTER TO ERRTBL>> 
-MCALL MS$GEN 
.IF NB,LSETP 
-IF_NB.<;POINTER TO ERRTBL> 

002102 MSGEN ” LSETP.:,SVCGBL.<;POINTER TO ERRTBL> 


002102 LSETP:: :POINTER TO ERRTBi 


mist LSETP:: 


NDC 
IF B,<;POINTER TO ERRTBL> 
MSGEN LSETP,:,SVCGBL.< > 


“ENDC ‘ 


-ENDC 
IF B <; te TO ERRTBL> 
MSGNGBL L$ETP 


-ENDC 
002102 MSGNINS <.WORD LSERRTBL> 
-IF LT SVCINS 
-WORD  LS$ERRTBL 
~MEXIT 
-ENDC 
-IF EQ SVCINS 
992102 002160 -WORD LSERRTBL 
-MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 

-WORD LSERRTBL 


«NLIST 
-ENDC 


-ENDC 
002104 MSDATA L$ICP,.WORD,LSINIT,<<;PTR. TO INIT CODE>> 
-MCALL MS$GNGBL ,MSGNINS 
IF NB <;PTR. TO INIT CODE> 
002104 MSGNGBL L$ICP,<<;PTR. TO INIT CODE>> 
-MCALL MS$GEN 
-IF NB, LSice 
-I1F NB,<;PTR. TO INIT CODE> 
002104 M$GEN isicP,:,SVCGBL, <;PTR. TO INIT CODE> 
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-IF LE SVCGBL 
002104 LSICP:: :PTR. TO INIT CODE 


waist LSICP:: 


- ENDC 
-IF B,<;PTR. TO INIT CODE> 
MSGEN L$ICP,:,SVCGBL.< > 


-ENDC 


-ENDC 
-IF B <;PTR. TO INIT CODE> 
MSGNGBL L$ICP 


-ENDC 
002104 MSGNINS <.WORD LSINIT> 
-IF LT SVCINS 
-WORD_ LS$INIT 
“MEXIT 
-ENDC 
-IF EQ SVCINS 
002104 013672 -WORD LS$INIT 
-MEXIT 


-ENDC 
-IF GT SVCINS 
-LIST 
«WORD L$INIT 
-NLIST 


-ENDC 
002106 MSDATA LS$CCP,.WORD, aa <<;PTR. TO CLEAN-UP CODE>> 
-MCALL MSGNGBL ,.MSGNINS 
-IF NB <;PTR. TO CLEAN-UP CODE> 
002106 MSGNGBL L$CCP,<<;PTR. TO CLEAN-UP CODE>> 
-MCALL M$GEN 
- IF NB,LSCCP 
IF _NB.<:PTR. TO CLEAN-UP CODE> 
002106 MSGEN os ati alte TO CLEAN-UP CODE> 


002106 LSCCP:: PTR. TO CLEAN-UP CODE 


LSCCP:: 
-NLIST 


EN 
ait B,<;PTR. TO CLEAN-UP CODE> 


GEN  LS$CCP,:,SVCGBL,< > 
-ENDC 
.~ENDC 
-ENDC 
-IF B <;PTR. TO CLEAN-UP CODE> 
el L$CCP 
002106 MSGNINS <.WORD LS$CLEAN> 


-IF LT SVCINS 
-WORD L$CLEAN 
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002106 


002110 


002110 


002110 
002110 


002110 


002110 


002112 


002112 


002112 


014526 


014524 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
-WORD LS$CLEAN 
-MEXIT 


-ENDC 
-IF GT SVCINS 
. IST 


pot eNLIST 
MS$DATA L$ACP,.WORD,LSAUTO,<<;PTR. TO AUTO CODE>> 
-MCALL MSGNGBL ,MSGNINS 

IF NB <:PTR. TO AUTO CODE> 
MSGNGBL LS$ACP,<<;PTR. TO AUTO CODE>> 

-MCALL MSGEN 


NB,LSACP 
-IF NB,<;PTR. TO AUTO CODE> 
MSGEN LSACP. : SVCGBL. 2<:PTR. TO AUTO CODE> 


F 
LSACP:: :PTR. TO AUTO CODE 


-NLIST 


-IF B,<;PTR. TO AUTO CODE> 
EN LS$ACP,:,SVCGBL.< > 


-IF B <;PTR. TO AUTO CODE> 
GNGBL L$ACP 


~ENDC 
MSGNINS <.WORD L$AUTO> 
-IF LT SVCINS 


-WORD  L$AUTO 
-MEXIT 
-ENDC 
-IF EQ SVCINS 

D  LSAUTO 
-MEXIT 
-ENDC 
-IF GT SVCINS 
. IST 

-NLIST 


« WORD 


LSACP:: 


- WORD 


- ENDC 
MSDATA LS$PRT,.WORD,LSPROT,<<;PTR. TO PROTECT TABLE>> 


-MCALL MSGNGBL MSGNINS 

IF NB <;PTR. TO PROTECT TABLE> 

MSGNGBL L$PRT,<<;PTR. TO PROTECT TABLE>> 

-MCALL MS$GEN 

- IF NB,LSPRT 

-IF NB,<;PTR. TO PROTECT TABLE> 

M$GEN LS$PRT,:,SVCGBL,<;PTR. TO PROTECT TABLE> 


LSCLEAN 


LSAUTO 





SEQ 0051 
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002112 


002112 


002112 


002114 





013664 


-IF LE SVCGBL 
LSPRT:: ;PTR. TO PROTECT TABLE 


«NLIST 


NDC 
-IF B,<;PTR. TG PROTECT TABLE> 
a; L$PRT,:,SVCGBL,< > 


-ENDC 
- ENDC 
-IF B <;PTR. TO PROTECT TABLE> 
GNGBL L$PRT 
-ENDC 
MSGNINS <.WORD L$PROT> 
-IF LT SVCINS 
-WORD_ LS$PROT 
-MEXIT 
-ENDC 
-I1F EQ SVCINS 
-WORD LS$PROT 
-ENDC 
-IF GT SVCINS 
-LIST 
pet -NLIST 
MSDATA LS$TEST..WORD, oe <<; TEST NUMBER>> 
MSGNINS 


istest:: 7 TEST NUMBER 


-NLIST 


-ENDC 
-IF B,<;TEST NUMBER> 
Won; LS$TEST,:,SVCGBL.< > 


- ENDC 

- ENDC 

IF 8 <;TEST NUMBER> 
MSGNGBL* L$TEST 


- ENDC 
MSGNINS <.WORD 0> 
-IF LT SVCINS 
-WORD 0 


LSPRT:: 


- WORD 


LSTEST:: 


LSPROT 


SEQ 0052 
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002114 


002116 


002116 


002116 
002116 


002116 


002116 


002120 


000000 


000000 


002120 — 


002120 


-MEXIT 

-ENDC 

-IF EQ SVCINS 
» WORD 

»MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 


-NLIST 


-ENDC 
MSDATA LS$DLY,.WORD.O, i DELAY COUNT>> 
.MCALL MSGNGBL ,MSGNINS 

IF NB <;DELAY COUNT> 
MS$GNGBL LS$DLY,<<;DELAY COUNT>> 

-MCALL MS$GEN 

- IF NB,LSDLY 

IF _NB,<;DELAY COUNT> 
M$GEN_ _LSDLY,:,SVCGBL.<;DELAY COUNT> 

SVCGBL 


;DELAY COUNT 


»NLIST 


EN 
-IF B,<;DELAY COUNT> 
MSGEN LSDLY,:,SVCGBL,< > 


-IF B <;DELAY COUNT> 
MSGNGBL LSDLY 


M$GNINS <.WORD 0> 
IF LT SVCINS 


. WORD 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
-WORD 0 
-MEXIT 
- ENDC 
IF GT SVCINS 
»LIST 
»NLIST 


-ENDC 
MSDATA LSHIME,.WORD,0,<<;PTR. TO HIGH MEM>> 
CA MSGNI NS 


$HIME 
“IF NB.<;PTR. TO HIGH MEM> 
M$GEN  L$HIME,:,SVCGBL,<;PTR. TO HIGH MEM> 


LS$DLY:: 


- WORD 










002120 


002120 


002120 000000 
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-IF LE SVCGBL 
LSHIME:: ;PTR. TC HIGH MEM 


»NLIST 


IF B,<;PTR. TO HIGH MEM> 
wo, L$HIME,:,SVCGBL,< > 


. C 
-IF B <;PTR. TO HIGH MEM> 
MS$GNGBL LSHIME 


~ENDC 

MSGNINS <.WORD 0> 
.IF LT SVCINS 
-WORD 0 


EQ SVCINS 
-WORD 0 


- ENDC 
-IF GT SVCINS 
»NLIST 


“IF EQ OSPOINTER 
:"POINTER'’ JST PRECEDE ‘'HEADER"’ 


LSHIME:: 


«WORD 0O 


SEQ 0054 























DISPATCH TABLE 
1 


2 
3 
4 
5 
6 
7 
8 002122 


002122 


002122 
002122 
002124 


062124 
002124 


000012 


000001 


000001 
000001 
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-SBTTL DISPATCH TABLE 


e+? 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS CF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 1 
-MCALL M$WORD ,M$SGNGBL 
»-RADIX 10 
M$WORD \1 
~— oar 
MSGNINS <.WORD N> 


NDM 
MS$GNINS <.WORD 1> 
IF LT 4 pees 


- WORD 

-MEXIT 

-ENDC 

IF EQ°SVCINS 
«WORD 

-MEXIT 


-ENDC 

-IF GT SVCINS 

«LIST 
«NLIST 

-ENDC 

M$GNGBL L$DISPATCH 

-MCALL MS$GEN 

IF = L$DISPATCH 

M$GEN © LSDISPATCH,:,SVCGBL, 

- ENDC 


-IF B, 
M$GEN  LSDISPATCH,:,SVCGBL.< > 
-IF LE SVCGBL 


LSDISPATCH:: 
-MEXIT 
.ENDC 

LIST 

eNLIST 

ENDC 

NDC 
TSTEMP=1 
REPT 1 

. IRP N,<\TSTEMP> 
mSioR D T'N 
iSTEMP=TSTEMP + 1 
.ENDR 





. IRP N,<\TSTEMP> 
RD T'N 


- WORD 


L$DISPATCH:: 





SEQ 0055 
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002124 


002124 014534 


000002 
000010 


— MS$GNINS 
. IRP N,<T1> 
MSGNINS <.WORD N> 


NDM 

MS$GNINS <.WORD T1> 
IF LT SVCINS 

. WORD 


“MEXIT 

~ ENDC 

IF EQ SVCINS 

«WORD 11 

»MEXIT 

-IF GT SVCINS 

«LIST 

«NLIST 


- ENDC 
TSTEMP=TSTEMP + 1 
-RADIX 8 


io 


. WORD 


T1 


SEQ 0056 
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1 .SBTTL DEFAULT HARDWARE P=TABLE 
: > 
. p++ 
4 + THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
5 : THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
a : IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P=TABLES, 
f ; AND IS USED AS A “'TEMPLATE'’ FOR BUILDING THE P=TABLES. 
9 
10 002126 BGNHW DFPTBL 
.MCALL M$PUSH,M$INCR,MSGNINS ,M$GNGBL 
002126 MSPUSH T$NS,TSNESTLEV,FSHW 
.MCALL M$INCR,MSSETS 
002126 MSINCR T$NESTLEV 
000001 TSNESTLEV=TS$NESTLEV+1 
002126 M$SETS T$NS,\TSNESTLEV,F SHW 
000013 T$NS1=F SHW 
010000 T$$HW=T$TAGNUM 
002126 MSINCR T$TAGNUM 
010001 _ T$TAGNUM=T$TAGNUM+1 
.IRP——N, <\T$$Hw> 
MSGNINS <.WORD L'N=-L$HW/2> 
002126 MSGNINS <. WORD L10000-L$HW/2> 
"WORD L10000-L$HW/2 * 
“MEXIT 
"ENDC 
“IF EQ SVCINS 
002126 000007 cena .WORD L10000-L$HW/2 


~ENDC 
-IF GT SVCINS 
oh TST 
-WORD L10000=-L$HW/2 
»NLIST 
~ENDC 
002130 MS$GNGBL L$HW 
-MCALL MS$GEN 
. IF NB,LSHW 
IF NB, 
MSGEN LSHW,:,SVCGBL, . ‘ 
S| B, 
002130 M$GEN L$HW,:,SVCGBL,< > 
. SVCGBL 
002130 


LSHW:: 
»NLIST 
»ENDC 


-ENDC 
002130 M$GNGBL DFPTBL 
-MCALL MS$GEN 
-IF NB,DFPTBL 


i 
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AN 


MSGEN * DFPTBL,:,SVCGBL, 


. B 

002130 MSGEN. DFPT3L,:,SVCGBL,< > 
IF LE SVCGBL 

002130 DFPTBL:: 


DFPTBL:: 


130 172150 «WORD 172150 ; UDAIP ADDRESS 
2132 000000 -WORD 06 UNIT NUMBER 
02134 000003 -WORD USERES+STPBAD STARTUP FLAGS 
2136 000000 000000 000000 -WORD 0,0,0,0 SERIAL NUMBER 


2146 . ENDHW 
-MCALL M$POP ,M$GNTAG,MSENDERR 
002146 MSPOP  T$NS, TSNESTLEV, TSTEMP 
-MCALL MSGETS MSDECR 
IF LT TSNESTLEV ' 
ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 


002146 MSGETS TSNS,\TSNESTLEV, TSTEMP 

000013 TSTEMP=T$NS1 
002146 MSDECR TSNESTLEV 

000000 TSNESTLEV=TSNESTLEV~1 

-IF EQ FSHW-TSTEMP 
002146 MS$GNTAG L,T$$HW 
002146 M$GEN- L,\TS$$HW,SVCTAG 
SVCTAG 


off 
002146 L10000: 


re L10000: 
010000 . ssi sym=T3LSYM 


SENDER ENDHW, TSTEMP 


18 
19 


002146 BGNSW SFTBL 
-MCALL MSPUSH MS INCR-MEGNINS ,MSGNGBL 
002146 MSPUSH T$NS,TSNESTLEV,F $SW 
.MCALL MS$INCR,MSSETS 
002146 M$INCR T$NESTLEV 
000001 T$NESTLEV=T$NESTLEV+1 
002146 MS$SETS RE, T$NS, C TSNESTLEV, F$Sw 


000014 
010001 1$$3u=7$7AGNUM 





| 


002146 
! 
| 
| 002146 


002146 


002150 


002150 
002150 


002150 


002150 
002150 


20 002150 
21 002160 


002160 


010002 


000004 


000001 


000002 000003 
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MSINCR TSTAGNUM 
TSTAGNUM=T$TAGNUM+ 1 
. RP N,<\TS$$Sw> 

—— <.WORD L'*N=L$Sw/2> 


MSGNINS <.WORD 110001-L$Sw/2> 

-IF LT SVCINS 

WORD 110001-L$SW/2 

-MEXIT 

~ENDC 

IF EQ ett 

-MEXIT 

-ENDC 

-I1F GT SVCINS 
IST 


L10001=L$sw/2 


»NLIST 


L$Sw,:,SVCGBL, 


L$SW,:,SVCGBL,< > 
SVC GBL 


- ENDC 


- ENDC 

MSGNGBL SF TAL 
-MCALL MS$GEN 
- IF NB, SFTBL 
. NB 


SFTBL.:,SVCGBL, 


SFTBL.:,SVCGBL.< > 
SVCGBL 


«WORD 1,2,3.4 ; VAK FORMAT DATE 


eee ee 


« WORD 


L$SwW:: 


SF TBL:: 


SEQ 0059 


L10001=i $Sw/2 


-- -— SC 


002160 
002160 


002160 
002160 
002160 


22 
23 002160 


002160 


002160 
002160 





000014 


010000 


000041 


000000 
177777 
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-MCALL MSGETS,MSDECR 
TSNESTLEV 


IF LT 
«ERROR TSNESTLEV 3 MACRO TSNS UNDERFLOW 
-MEXIT 
° m3" 
GETS TSNS,\TSNESTLEV, TSTEMP 
TSTEMP=TS$NS1 


MSDECR TSNESTLEV 
TSNESTLEV=TSNESTLEV=1 
-I1F EQ FS$SW-TSTEMP 
MSGNTAG L,TS$$SW 


MSGEN 
MSGEN L,\TS$SwW,.SVCTAG 
-IF LE SVCTAG 
0001: 


.NLIST 
 Mienennaee 
MSENDERR ENDSW, TSTEMP 


ENDMOD 
-MCALL MS$POP ,MSENDERR 
-IF EQ _F$BGN-]$MOD 
_— 


“ERROR : MISSING ‘BGNMOD"' 
TSNS, ; ISNESTLEV. _TSTEMP 


M 
-MCALL MSGETS,M$ 
LIF LT T$NESTLEV 


-ERROR TS$NESTLEV ; MACRO TSNS UNDERFLOW 
-MEXIT 
-ENDC 

GE TSNS,\TSNESTLEV, TSTEMP 


M$GETS 

TSTEMP-T$NSO 

M$DECR TSNESTLEV 
TSNESTLEV=TSNESTLEV~1 

-I1F NE FSMOD-TSTEMP 

7 ENDMOD , TSTEMP 


110001: 


SEQ 0060 


—_-s SCC eee — 


J 5 
UDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 8 SEQ 0061 
DEFAULT HARDWARE P=TABLE 


oO 
Ns 


| 
| 1 ; -TITLE GLOBAL AREAS 
§ -SBTTL GLOBAL EQUATES SECTION 
4 Lee eee eee AAA A EAA A ALAA AEA LAA2% 
5 ; NOTE: THE ASSEMBLER DIRECTIVE *.GLOBL* SHOULD NOT BE USED ANYWHERE IN 
6 ; » YOUR DIAGNOSTIC PROGRAM. INSTEAD, USE THE DOUBLE-EQUATE (== 
7 ° DOUBLE=COLON (::) TO DEFINE GLOBAL VALUES. HELP-MESSAGES GIVEN 
; ; SInter a WHERE TO USE THE DOUBLE-EQUATE AND DOUBLE-COLON 
H ; SAR ARLELARALLALLLLLLL LEELA ULLAL ELLE E LER ELLE ELE ELLER ELLER ELLE ELLE LER 
12 002160 BGNMOD 
-MCALL MS$GNGBL ,MSPUSK 
| IF NE F SEND~1 $MOD 
«ERROR ;"BGNMOD’’ IN MOD 
EXIT 
-1FF 
000040 I$MOD=F $BGN 
-ENDC 
-1F NB 
MSGNGBL 
- ENDC 
002160 MSPUSH TSNS,TSNESTLEV,F $MOD 
-MCALL os nego MSSETS 
002160 MSINCR TS$NESTLEV 
000000 ISNESTLEV=TSNESTL EV+ 
002160 MSSETS TSNS, CTSNESTLEV, F $MOD 
13 000000 TSNSO=F SMOD 
14 5 
15 ; “THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
18 ; ARE USED IN MORE THAN ONE TEST. 
f 
20 : EQUATES THAT ARE ADDED TO THIS SECTION MUST BE DEFINED WITH A 
e1 3 DOUBLEEQUATE (==); THIS WILL MAKE THEM GLOBAL EQUATES. 
$§ ; FOR EXAMPLE, AN ERROR STATUS BIT COULD BE DEFINED AS ERR==B1T15. 
24 
25 092160 EQUALS 
: BIT DIFINITIONS 
100000 B1T15== 100000 
040000 B1T14== 40000 
020000 B1T13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
00 BITO8== 400 
000200 BITO7== 200 
000100 BIT06== 100 
0 0 BITO5== 40 
000020 BIT04== 20 
10 BITO3== 10 
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GLOBAL EQUATES SECTION 


000004 
000002 
000001 


BITO2== 4 
BITOI== 2 
BITOO== 1 
BIT9== BITO9 
BIT8== BIT08 
BIT7== BITO7 
BIT6== BIT06 
BITS5== BITOS 
BIT4== BIT04 
BIT3== BITO3 
BIT2== BITO2 
BIT1i== BITO1 
BITO== BIT 


> EVENT FLAG DEFINITIONS 
:  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. : START COMMAND WAS ISSUED 

EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 
EF.CONTINUE== 30. : CONTINUE COMMAND WAS ISSUED 

EF .NEW== 29. : A NEW PASS HAS BEEN STARTED 
EF .PWR== 28. : A POWER-FAIL/POWER-UP OCCURRED 


: PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PRI06== 300 
PRIO5== 240 
104== 
PRIO3== 140 
PR1I02== 100 
PRIO1== 4 
PRIOO== 0 
TOPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
=e 200 
BOE== 400 
== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


SEQ 0062 
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GLOBAL EQUATES SECTION 


WO NAVUSWN OO OONAYWEWN 


ek ee et nn od tk oe ot 


20 


004000 
100000 
003500 
010200 
002000 
020000 
000000 


003777 
040000 


* 000001 


;UDA BIT DEFINITIONS 
;UDASA REGISTER UNIVERSAL READ BITS 


SA.S1= 004000 ;STEP 1 STATUS BIT 
SA.S2= 010000 STEP 2 STATUS BIT 
SA.S3= 020000 ;STEP 3 STATUS BIT 
SA.S4= 040000 ;STEP 4 STATUS BIT 
SA.ERR= 100000 ERROR INDICATOR 
;UDASA REGISTER ERROR STATUS BITS 

SA.ERC= 003777 ERROR CODE 

;UDASA REGISTER READ MASK/READ RESPONSE/WRITE VALUES 

RNGLEN = 6 NUMBER OF WORDS IN C 


OMMAND. . 
..--AND RESPONSE RING COMBINED 


IN.MS1 = 003777 : MASK FOR RESPONSE 1 

IN.RS1 = 004000 ‘ EXPECTED RESPONSE 1 (AFTER MASKING) 
IN.WI1 = 100000 + WRITE 1 

IN.MS2. = 003500 

IN.RS2 = 010200 

; : WRITE 2 IS THE RING ADDRESS 
IN.MS3 = 002000 

IN.RS3 = 020000 

IN.WT3 = 000000 : HIGH ORDER RING ADDR = UNUSED 
IN.MS4 = 003777 

IN.RS4 = 040000 

SA.GO= 000001 :GO BIT TO START UDA FIRMWARE 


SEQ 0063 


CZUDEAO PDP=11 UDA 


GLOBAL EQUATES SECTION 


CVUWNAOVUEWN —$OVONAUSWN 


NN? A A eS SS ee 
— 


100000 
040000 


000004 
000060 
000032 
000010 
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; COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 


RG.OWN= 100000 SET WHEN UDA OWNS RING 
RG.FLG= 040000 zFLAG BIT 


OFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING 
;AND TWO PACKET AND BUFFER AREAS. 


HC.RSZ= 4. 7SIZE OF RING IN BYTES 
HC.PSZ= 48. ZSIZE OF COMMAND AND MESSAGE PACKETS 
HC.BSZ= 26. ;SIZE OF BUFFER 
HC.RESZ = 8. ; SIZE OF RING ENVELOPE 
Fila halalaledatatedalabolatalaalatoeteloaietalaieteteieielaieletaieieteieiaiaieleiaieieteieieiaiaieiaiaieiaieieiaieieiaieieiaieisieieteieie 
; OFFSETS FROM C.RING(R5) WHERE R5 => CONTROLLER TABLE 
WITIIIIITIII TTI TiT titi tii tii Titititititiiititi LLL LLL ELLE ELLE 
HC .MSG= 0 : MESSAGE RING START 
HC.MCT= HC.MSG+2. ; MESSAGE RING CONTROL WORD 
HC.CMD= HC.MSG+tHC.RSZ ; COMMAND RING START 
HC.CCT=HC.CMD+2 ; COMMAND RING CONTROL WORDS 
HC.MEV= HC.CMD+HC. : MESSAGE ENVELOPE 
HC.VC = HC.MEV+ : VIRTUAL CIRCUIT + CREDIT FIELD 
HC.MPK= HC.VC+2 ; MESSAGE PACKET START 
HC.CEV= HC. yg PSZ ; START OF COMMANDD PACKKET ENVELOPE 
HC.CPK= HC.CEV+4 3; COMMAND PACKET START 
HC.BF1= HC.CPK+HC.PSZ ; FIRST BUFFER 
HC .BF2= HC.BF1+HC.BSZ : SECOND BUFFER 


HC.SIZ= HC.BF2+HC.BSZ+HC .RESZ z: TOTAL SIZE OF HOST COMM AREA 


: INCLUDING THE RING ENVELOPE HEADER 
DUP.VC = 1001 — : VIRTUAL CIRCUIT + CREDIT FIELD FOR DUP 


SEQ 0064 





N 5 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 11 SEQ 0065 
GLOBAL EQUATES SECTION 






1 s $e mee ee ee ee ee ee ee + 
¢ bs RING ENVELOPE HEADER HC.RESZ BYTES 
i ; arenes sserenaeneseneas sa PNNE ERRORS ‘ 
5 HY HC.MSG ! MESSAGE RING ' HC.RSZ BYTES 
$ s HC.MCT ! : 
: $eemwwn www www nn nn new n. 2 ne ee ee. --+ 
8 5 HC.CMD ! COMMAND RING ! HC.RSZ BYTES 
G ; MEE F : 
10 = tem n enn eee ene e eee soso esses sees esoososes= + 
13 ; HC.MEV MESSAGE ENVELOPE HEADER 4 BYTES 
13 ; toon a nn nnn errr nnn nn renner nnn nnn nnn nn nnn n= + 
Le ; HC .MPK MESSAGE PACKET HC.PSZ BYTES 
6 : 
17 3 ! : 
18 : - eee RaRERRNERENgE EYE sgNeremEENITEIgNEeene pee + 
4 3 HC.CEV COMMAND ENVELOPE HEADER 4 BYTES 
: Seitertateneeaemeuiatinmnesne teenie iat tigenataeteie ‘ 
é HC.CPK COMMAND PACKET HC.PSZ BYTES 
A i i 
i 
Zz $n tr eee ee eee eee oor oe soeresre== + 
Fy HC .BF1 BUFFER # 1 (DATA SENT TO DM) HC.BSZ BYTES 
4 ' 
: i i 
Po $3 er er eee reser ser reser-= + 
: HC .BF2 BUFFER # 2 (DATA RECEIVED FROM DM) HC.BSZ BYTES 


' 
(a 
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GLOBAL EQUATES SECTION 


: 
1 


—OVDONAUSWN— 


000200 








; COMMAND PACKET OPCODES 


;0P.MwR=31 ioe pacnat t WRITE COMMAND 

oP. 1? 200 END PACKET FLAG 

OP.DLE= 2 ; DOWN Te LOAD AND EXECUTE DUP PROGRAM 
OP. SND=4 : SEND DAT 

OP.RCV=5 ; RECEIVE DATA 


NOTE: END PACKET OPCODES (ALSO ya ENDCODES) ARE FORMED BY ADDING THE END 
“PACKET FLAG TO THE COMMAND OPCODE. THE UNKNOWN COMMAND END PACKET CONTAINS 
;JUST THE END PACKET FLAG IN ITS OPCODE FIELD. 





' 













SOON AUSWWN—OOONAUSWR— 


MWe Ss ws rs 


00 
000010 
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GLOBAL EQUATES SECTION 


; COMMAND MODIFIERS 


MD.CMP= 020000 
MD.EXP= 100000 
MD.ER 0000 


MD..NXU= 010000 


sEND PACKET FLAGS 


EF .BBR= 000200 


EF .SDO= 000001 


;UNIT FLAGS 
UF .AVL= 000001 


UF .WPR= 040000 
UF .576= 000010 


; COMPARE 

EXPRESS REQUEST 

FORCE ERROR 

SOFTWARE WORDS SUPPLIED 
SUPPRESS CACHING (HIGH SPEED) 
; SUPPRESS CACHING (LOW SPEED) 
SUPPRESS ERROR CORRECTION 

; SUPPRESS ERROR aang 

; SUPPRESS SHADOWIN 

[WRI TE=BACK (NON-VOLAT ILE) 
sWRITE BACK (VOLATILE) 

[WRITE SHOW SET IN ORDER 

SP IN=DOWN 


‘FLUSH ENTIRE UNIT 
“VOLATILE ONLY 
“NEXT UNIT 


:;BAD BLOCK REPORTED 

;BAD BLOCK UNREPORTED 

SHADOW SET ERROR 

SOF TWAREW WORDS DIFFERENT: 

; SOFTWARE WORDS BYTE 3 DIFFERENT 
; SOFTWARE WORDS BYTE 2 DIFFERENT 
; SOFTWARE WORDS BYTE 1 DIFFERENT 
; SOFTWARE WORDS BYTE 0 DIFFERENT 


sAVAILABLE PENDING 
; COMPARE READS 


COMPARE WRITES 

SHOST INITIATED BAD BLOCK REPLACEMENT 
S INACTIVE SHADOW SET UNIT 

7MUL lAet wat (TWO BIT FIELD): 


: LE MEDIA 

[SUPPRESS CACHING (HIGH SPEED) 
SUPPRESS CACHING (LOW SPEED) 
:WRITE-BACK s aedmarted ILE) 
SWRITE PROTECT 

3576 BYTE SECTORS 


SEQ 0067 
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GLOBAL EQUATES S 


— RS es YS YH SYS SS 


1 
2 
3 
4 
5 
6 
¢ 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
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000000 
000004 


~ 
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; CONTROLLER FLAGS 


CF.RPL= 000001 


CF.576= 000004 


CONTROLLER INITIATED BAD aa, 


ZENABLE THIS HOST*S ERROR LOG MESSAGES 
[576 BYTE SECTORS 


3; COMMAND PACKET OFFSETS 


GENERIC COMMAND PACKET OFFSETS: 


P.CRF= 0. : COMMAND REFERENCE NUMBER 
P.UNIT= 4. *UNIT NUMBER 
P.OPCD= 8. : OPCODE 
P.MOD= 10. :MOD1F 1ERS 
P.BCNT= 12. YTE COUNT 
P.BUFF= 16. “BUFFER DESCRIPTOR 
P.UADR= P.BUFF SUNIBUS ADDRESS OF BUFFER DESCRIPTOR 
P.LBN= 28. [LOGICAL BLOCK NUMBER 
P.SFTW= 32. * SOFTWARE WORDS 

ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 
P.OTRF= 12 OUTSTANDING REFERENCE NUMBER 
: ONLINE AND SET UNIT CHARACTERISTICS COMMAND PACKET OFFSETS: 
P.UNFL= 12. :UNIT FLAGS 
P.SHUN= 14. :SHADOW UNIT 
P.UNTI= 16. [UNIT IDENTIFIER 
P.HSTI= 24. sHOST IDENTIFIER 
P.ELGF= 28. sERROR LOG FLAGS 
; REPLACE COMMAND PACKET OFFSETS: 
P.RBN= 12 :REPLACEMENT BLOCK NUMBER 
; SET CONTROLLER CHARACTERISTICS COMMAND PACKET OFFSETS: 
P.CNTF= 12. sCONTROLLER FLAGS 
P.HTMO= 14, ‘HOST TIMEOUT 
P.USEF= 16. SUSE FRACTION 
P.TIME= 20. sQUAD-WORD TIME AND DATE 
: MAINTENANCE READ AND MAINTENANCE WRITE COMMAND PACKET OFFSETS: 
P.RGID= 28. :REGION ID 
P.RGOF= 32. sREGION OFFSET 
: DUP PACKET OFFSETS 
P.TRLN = 12. : TRANSFER LENGTH 
P.MAIN = 16. : HOST ADDRESS OF MAIN DM CODE 
P.OVRL = 28. * HOST ADDRESS OF OVERLAY CODE 
; DUP HEADER OFFSETS ae 2 

q 

HDR.MN = 0 : OFFSET TO SIZE OF MAIN PROGRAM 
HDR.OV = 4 : OFFSET TO SIZE OF OVERLAYS 


{ 
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GLOBAL EQUATES SECTION 


ee et 3 2d et 
OOWNANEWN—OODONAOWEWR— 


12 
000014 





a 


END PACKET OFFSETS 


. 
Dun 
~ 
“ 
' 
MOMOOBOLO 


B 

zK 

" 
who 


P.CNTI= 


GENERIC END PACKET OFFSETS: 
at gy REFERENCE NUMBER 


UNIT NUMBER 
; OPCODE a CALLED ENDCODE) 
END PACKET FLAGS 

MODIFIERS 

BYTE COUNT 

;FIRST BAD BLOCK 

; SOFTWARE WORDS 


.GET COMMAND STATUS END PACKET OFFSETS: 


:OUT Sao oak -— NUMBER 
: COMMAND STATUS 


GET UNIT STATUS END PACKET OFFSETS: 
;UNIT F 


; SHADOW 
Hatt STATUS 


:RCT PAD SIZE 
:RBN / TRACK 
:RCT COPIES 


ONLINE AND SET UNIT CHARACTERISTICS 
;UNIT FLAGS 
; SHADOW UNIT 
UNIT IDENTIFIER 
HOST IDENTIFIER 
UNIT COMMAND LIMIT 
UNIT SIZE 
: VOLUME SERIAL NUMBER 


SET CONTROLLER vieaataa hinges E27 END PACKET OFFSETS: 


MEOUT 
: CONTROLLER COMMAND LIMIT 
: CONTROLLER ID 


ERROR LOG ATTENTION MESSAGE PACKET OFFSETS 


SONY fa REFERENCE NUMBER 
47 eater 


SOPCODE 

; ERROR A aS 
:SIZE_OR OFFSET 

START OF ERROR LOG DATA 


SEQ 0069 
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GLOBAL EQUATES SECT] 


} ;ERROR LOG FLAGS 
3 000200 EF .FRS= 000200 FIRST oncert 
“ 000100 EF .LST= 000100 SLAST PACKET 
H 000001 EF .MIS= 000001 ;MESSAGE MISSING 
i ;ERROR LOG MESSAGE OFFSETS 
9 000000 L.EVNT= 0. sEVENT CODE 
10 000002 L.SLOT= 2. ;SLOT NUMBER 
11 0 4 L.CNTI= 4. ; CONTROLLER IDENTIFIER 
12 000014 L.CNTI= 12. ;CONTROLLER SOFTWARE REVISION 
13 000015 L.CHVR= 13. [CONTROLLER HARDWARE REVISION 
14 000016 L.UNTI= 14. UNIT IDENTIFIER 
15 000026 L.USVR= 22. UNIT SOFTWARE REVISION 
16 000027 L.UHVR= 23. UNIT HARDWARE REVISION 
17 000030 L.ERLC= 24. ERROR LOCATION 
18 000034 L.CYL= 28. CYLINDER 
19 000040 L.GRP= 32. ; GROUP 
20 000041 L.TRCK= 33. ; TRACK 
21 000042 L.SCTR= 34. ; SECTOR 
2 00004 L.VSER= 36. : VOLUME SERIAL NUMBER 
ti 000050 L.DATA= 40. sEVENT DEPENDENT DATA 
4 :STATUS AND EVENT CODE DEFINITIONS 
27 000037 ST.MSK= 37 STATUS / EVENT CODE MASK 
28 000040 ST.SUB= 40 ;SUB-CODE MULTIPLIER 
29 000000 ST.SUC= 0 SUCCESS 
000001 ST.CMD= 1 : INVALID COMMAND 
31 060002 ST.ABO= 2 ; ABORTED 
32 000003 ST.SHE= 3 ; SHADOW SET ERROR 
33 000004 ST.OFL= 4 ; UNI TOF FLINE 
000005 ST.AVL= 5 UNI TAVAILABLE 
35 000006 ST.WPR= 6 ;WRITE PROTECTED 
000007 ST.CMP= 7 COMPARE ERROR 
37 000010 ST.DAT= 10 :DATA ERROR 
38 000011 ST.HST= 11 :HOST BUFFER ACCESS ERROR 
39 000012 ST.CNT= 12 : CONTROLLER ERROR 
40 000013 ST.DRV= 13 :DRIVE ERROR 
000037 ST.DIA= 37 ;MESSAGE FROM AN INTERNAL DIAGNOSTIC 
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CONTROLLER TABLE DEFINITIONS 


[ONE TABLE WILL BE SET UP BY INITIALIZE SECTION FOR EACH UDA SELECTED 
sFOR TESTING. TABLES ARE LINKED, A NULL (ZERO) LINK IS THE END OF THE TABLE. 


ZTHE FIRST TABLE IS POINTED TO BY THE CONTENTS OF TSTTAB. 
>THE NUMBER OF TABLES IS CONTAINED IN CTRLRS. 


000000 C.NEXT= 0 ; ADDR OF NEXT CONTROLLER TABLE 
. eee ; UNIBUS ADDRESS OF UDAIP REGISTER 
2 + 
CT.UNT= 000177 ; LOGICAL UNIT NUMBER (FIRST) 
CT.AVL=_BIT15 ; SET WHEN NOT AVAILABLE FOR TESTING 
C.VEC= C.UNIT+2 
000777 CT.VEC= 00077 ; VECTOR ADDRESS 
007000 CT.BRL= 007000 BR LEVEL 
000010 C.RING= C.VEC#2 RING BUFFER ADDRESS 
000012 C.TO= (C.RING+2 ios COUNTER 
ise C.FLG= C.TO+2 FLAGS 
1 ° DM PROGRAM LOADED 


DM PROGRAM RUNNING 

COMMAND ISSUED, WAITING FOR RESPONSE 
MESSAGE RESPONSE RECEIVED 

WHENEVER THIS BIT IS SET, CT.CMD IS CLEARED 
BUFFER HAS BEEN GIVEN TO UDA FOR REQUEST 
SET Ee ee MAINTENANCE READ COMMAND 
GIVEN TO UDA 

COMMAND REFERENCE NUMBER 

DRIVE UNIT NUMBER 

DOWN LINE LOAD FLAGS = SUPPL IED) 
ADDRESS OF FCT DLL BUFF 

BLOCK # OF BLOCK CURRENTLY IN C.F BUF 

-1 INDICATES FILE CLOSED 

UNIT SERIAL NUMBER (TO BE ASSIGNED) 
COUNT OF UN ‘wy. sy ATTEMPTS 

TO RECEIVE AN ANSWER 


INIT of ts FOR HIGH ORDER COUNTER 
;SIZE OF CONTROLLER TABLE 
; INDEX TO NEXT TABLE 


—s 
Nm 
* 
AQ AAANAO 
o _ . 


nN 
N 
Be a Be Be Be Be Be Be Oe Be Be Be Be Oe Be Oe Oe Oe Oe Be Oe Be Oe OD 


Ww NON A eS eS eS Ss 
ss Nm re) e NR ODOWNAUEWN—ODONA NEW 
N S 
Be 
NEM 
an 
a: 
=D 
nou 
oO 
I 
rr 
J 
" 
@ 
— 
oe 
oO 
. 
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| 
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GLOBAL EQUATES SECTION 
| } JUSEFUL INSTRUCTION DEFINITIONS 
3 .MACRO AND ARG,ADR ZLOGICAL AND INSTRUCTION 
é BIC #*C<ARG>,ADR 
5 JENDM 
? .MACRO OR ARG,ADR ZLOGICAL OR INSTRUCTION 
- BIS #ARG,ADR 
| B .=NDM 
ik .MACRO PUSH ARG :PUSM INSTRUCTION 
12 .IRP XK, <ARG> 
| 13 MOV K,=(SP) 
14 ~ENDM 
1 .ENDM 
17 .MACRO POP ARG zPOP INSTRUCTION 
12 ~IRP &,<ARG> 
19 MOV (SP)+,x 
20 .ENDM 
e! .ENDM 
23 .MACRO S ARG, LABEL 
26 DEC ARG 
25 BNE LABEL 
$3 ~ENDM 
28 .MACRO ASSUME ARG1,FUNCTION,ARG2 
4 “dF FUNCTION, <ARG1>=<ARG2> 
31 "ERROR ASSUMPTION VIOLATED 
32 eENDC 


33 


~ ENDM 
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1 -SBTTL GLOBAL DATA SECTION 
3 s+ 
4 ; THE GLOBAL DATA seer jon CONTAINS DATA THAT ARE USED 
; ; LIN MORE THAN ONE TEST. 
| 7 
8 002160 ERRTBL 
-MCALL MSGNGBL 
002160 MSGNGBL LSERRTBL 
-MCALL MSGEN 
314 + -LSERRTBAL 
MSGEN LSERRTBL,:.SVCGBi, 
tT 6, 
002160 MSGEN LSERRTAL,:,.SVCGBL.< > 
~IF LE SVCGBL 
002160 LSERRTBL:: 
-MEXIT 
-ENDC 
LIST 
LSERRTAL:: 
eNLIST 
~ENDC 
.ENDC 
002160 000000 ERRTYP -WORD 0 
002162 000000 ERRNBR -WORD 0 
2 000000 ERRMSG «WORD 0 
9 002166 000000 ERRBLK WORD 0 
10 002176 FFREE:: .BLKW 1 ; FIRST FREE WORD IN MEMORY 
11 002172 FSIZE:: .BLKW 1 ; SIZE OF FREE MEMORY IN WORDS 
12 002174 FMEM: -BLKW 1 ; COPY OF FFREE AT END OF INIT SECTION 
13 002176 FMEMS: .BLKW 1 ; COPY OF FSIZE AT END OF INIT SECTION 
14 200 CTRLRS: .BLKW 1 ; COUNT OF UDA CONTROLLERS IN PTABLES 
15 002202 TSTTAB: .BLKW 1 ; POINTER TG FIRST CONTROLLER TABLE 
16 002204 OG: .BLKwW 1 ; ADDR OF DM PROGRAM IN HOST MEMORY 
17 002206 DMOVRL: .BLKW 1 ; ADDR OF DM OVERLAYS IN HOST MEMORY 
18 002210 DMTRLN: .BLKW 1 ; TRANSFER LENGTH FOR DM MAIN PROGRAM IN BYTES 
19 002212 RDLOW: .BLKW 1 ; LOW BOUND FOR DM PROGRAM READ 
20 002214 RDHIGH: .BLKW 1 ; HIGH ... 
21 002216 RD.AT -BLKW 1 ; HOST ADDR FOR DM PROGRAM READ 
$$ 002220 URNING BLKW 1 ; NUMBER OF UNITS STILL RUNNING 
24 002222 IFLAGS::.BLKB 1 sFLAGS FROM INIT CODE 
25 ISTART==BITO : START EVENT FLAG 
ICONT ==B]T1 3; CONTINUE EVENT FLAG 
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GLOBAL TEXT SECTION 





| , -SBTTL GLOBAL TEXT SECTION 
cs p++ 
| 4 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
5 ; MESSAGES, AND ASCII] INFORMATION THAT ARE USED IN 
$ ; MORE THAN ONE TEST. 
g 
7 ; NAMES OF DEVICES SUPPORTED BY PROGRAM 
12 002224 DEVTYP <UNIBUS DISK ADAPTER (UDASO)> 
-MCALL MSDATA,MS$GNINS 
002224 MSDATA LSDVT YP, -ASC1Z,</UNIBUS DISK ADAPTER (UDASO)/> 
i te MS$GNGBL .MSGNINS 
M$GNGBL LSDVTYP,<> 
-ENDC 
-IF B 
002224 MSGNGBL LSDVTYP 
-MCALL MS$GEN 
.1F NB,LSDVTYP 
IF NB, 
MSGEN LSDVTYP,:,SVCGBL, 
-ENDC 
IF B, 
002224 MSGEN LSDVTYP,:,SVCGBL,< > 
-IF LE SVCGBL 
002224 LSDVTYP:: 
-ENDC 
LSDVTYP:: 
-NLIST 
-ENDC 
-ENDC 
- ENDC 
002224 “eer. <.ASCIZ /UNIBUS DISK ADAPTER (UDASO)/> 


-IF LT SVCINS 
mecit /UNIBUS DISK ADAPTER (UDA50O)/ 


-ENDC 
IF EQ SVCINS 
002224 125 116 111 mast -ASCIZ /UNIBUS DISK ADAPTER (UDA5O)/ 
- ENDC 
-IF GT SVCINS 
-LIST 
-ASCIZ /UNIBUS DISK ADAPTER 


«NLIST 
-ENDC 
002260 M$GNINS_ .EVEN 
IF LT SVCINS 
-EVEN 
»MEXIT 


-ENDC 
IF EQ SVCINS 
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ce! TEXT SECTION 
. EVEN 
-ENDC 
“IF GT SVCINS 
LIST 
.EVEN 
.NLIST 
.ENDC 
1% 
14 
19 : TEST DESCRIPTION 
17 002260 DESCRIPT <UDA HOST DISK FORMATTER> 
.MCALL M$DATA,MSGNINS 
002260 MS$DATA L$DESC..ASCIZ.</UDA HOST DISK FORMATTER/> 


-MCALL MSGNCS3L ,MSGNINS 


-IF NB 

M$GNGBL LSDESC,<> 

-ENDC 

-IF B 
002260 M$GNGBL LSDESC 

«MCALL GEN 

- IF NB,LSDESC 

IF NB 

MS$GEN LSDESC,:,SVCGBL, 


= 
bad 


IF 8B, 

002260 M$GEN LSDESC,:,SVCGBL.< > 
-IF LE SVCGBL 

002260 oem 


LSDESC:: 
»NLIST 
.ENDC 
~ENDC 


«ENDC 

002260 M$GNINS <.ASCIZ /UDA HOST DISK FORMATTER/> 
-IF LT SVCINS 

ttt /UDA HOST DISK FORMATTER/ 


“ENDC 
“IF EQ SVCINS 
002260 125 104 101 wei .ASCIZ /UDA HOST DISK FORMATTER/ 
ENDC 
“IF GT SVCINS 
IST 


«NLIST 
- ENDC 
002310 M$GNINS_ .EVEN 
-IF LT SVCINS 
-EVEN 
-MEXIT 


- ENDC 
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-IF EQ SVCINS 
-EVEN 
-ENDC 
-IF GT SVCINS 
-LIST 
«NLIST 


- NDC 
-EVEN 


. 
1 


‘000 





SEQ 0076 
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GLOBAL TEXT SECTION 


WOO NAUES WN ODODONAUE Wh 


1 
1 
1 
1 
1 
1 
i 
1 
: 
1 


: FORMAT STATEMENTS USED IN PRINT CALLS 


; MURRRRREREEEERERIRYUURLELEEEEEE AAAS IIIA UELLELEZELEE EA IAIAULLLEAEEELEXERIIIII2ELE 
THE RUNTIME 

: SERVICES TO BUILD MESSAGES. FORMAT STATEMENTS ARE DESCRIBED 

: IN THE SUPERVISOR PROGRAMMER'S MANUAL. 

; THE PRINT CALLS (PRINTB AND PRINTX) ARE IN THE NEXT S 

ROTTER UPT STE TTEL TER TT TTT TEE TERETE ET TT ETT TERT ETT TET EEE EEE 


Wa aae. T ATtAtede FO LatIT Patiadat Pata in ht tattion kat a fee 
: LABELS ATTACHED TO ASCII MESSAGES PLACED IN THI TION MUST 
: WITH A DOUBLE-COLON (::); THIS WILL MAKE THEM GLOBAL LABELS. FOR. EXAMPLE, 


: A MESSAGE COULD BE DEFINED AS DTAERR:: .ASCIZ "DATA ERROR OCCURRED’. 
I ARAL LEA E LALA ALAA ALLELE ALA LL ALAA L AAA ALLALALLAZ 


























ODWNOA UE Wr— 


10 002310 


002310 
002310 
002310 


002310 
002310 


11 002310 
002310 
002310 
002310 


002310 


002310 


000040 


000001 


000011 
010002 


010003 


104454 
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-SBTTL GLOBAL ERROR REPORT SECTION 


: THE GLOBAL ge ett yes CONTAINS MESSAGE gone. AREAS 


USED BY MORE T TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 


3 (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


BGNMSG 
-MCALL _M$PUSH,M$SINCR,MS$GNGBL 
1 $MSG=F $BGN 
MSPUSH TSNS, yp $14 F$MSG 
-MCALL MSINCR,MSSETS 


TSTAGNUM=T$TAGNUM+ 1 
MSGNGBL 
a MSGEN 


F NB, 

MS$GEN ,:,SVCGBL, 
NDC 
FB, 

M$GEN ,:,SVCGBL,< > 
NDC 


NDC 
FMERR: ERRSF 1,FMERRM 
INS 


ERRINS 1,FMERRM, , CSERSF 
-MCALL ote MSWORD ,M$TSTLAB 
M$SVC  CSERS 
parete aa MSGNINS, MSTSTLAB 
-MCALL_ MSTLABEL .MSINCR 
LIIF LT TSTSTMAC, .MEXIT 
»RADIX 1 


0 
MSTLABEL \TSTESTNUN, \TSTSTSEQ 
MSINCR_ TSTSTSEQ 


MSGNINS <TRAP C$ERSF> 
-IF LT SVCINS 
TRAP CSERSF 


oMEXIT 
-ENDC 
-IF EQ SVCINS 
TRAP CSERSF 
-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 
TRAP 


CSERSF 


SEQ 0078 


\cnaindinenmpamatcianticnaneesmintd 






















ERROR REPORT SECTION 


000012 
000001 


002312 


002312 


002312 000001 


000010 
002314 


002314 


002314 002330 


002316 
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« ENDC 

«RADIX 10 

IF NB 1 

pate: 

ERROR ;MISSING FRROR=-NR 
ENDC 


M$WORD \TSERRNUM 
-MCALL MSGNINS 


. IRP <1> 
MSGNINS me ‘WORD N> 


- ENDM 
MS$GNINS <.WORD 1> 
IF LT SVCINS 
WORD 1 


-MEXIT 
NDC 
IF EQ SVCINS 
« WORD 
-iF GT SVCINS 


eNLIST 


I 
. IRP N,<FMERRM> 
M$GNINS <.WORD N> 
.ENDM 


MSGNINS <.WORD FMERRM> 
. SVC INS 
[IF €Q SVCINS 
.WORD  FMERRM 
“IF GT SVCINS 
ST 


»NLIST 


D 0 
-MCALL MSGNINS 
. IRP N,<0> 
M$GNINS <.WORD N> 





«WORD 


FMERRM 














Cc ¢£ 
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.ENDM 

002316 MS$GNINS <.WORD 0> 
-IF LT SVCINS 
«WORD 0 
»MEXIT 
-ENDC 
-IF EQ SVCINS 

002316 000000 «WORD 0 
-MEXIT 

-ENDC 

-IF GT SVCINS 

IST 


«NLIST 
« ENDC 
. ENDC 
12 002320 RDERR: ERRSF 222,RDERRM 
-MCALL MSERRINS 
002320 MSERRINS 222,RDERRM, , CSERSF 
-MCALL MSGNINS ,MSWORD ,M$TSTLAB 
002320 M$SVC CSERSF 


-MCALL MS$GNINS ,M$TSTLAB 
TSTLAB 


STL 
-MCALL_ M$TLABEL,MS$INCR 
-IIF LT TSTSTMAC, .MEXIT 
RADIX 10 
MSTLABEL , \TSTESTNUN, \TSTSTSEQ 


RADIX 
MS$INCR_ TSTSTSEQ 
002320 MS$GNINS <TRAP C$ERSF> 
-IF LT SVCINS 
TRAP CSERSF 


002320 


»ENDC 
-IF EQ SVCINS 
002320 104454 TRAP CSERSF 
»MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 
«NLIST 
- ENDC 
000012 «RADIX 10 
-IF NB 222 
000336 + 7 tetas 
—— MISSING ERROR=NR 
002322 M$WORD \TSERRNUM 


> 
MSGNINS <:WORD N> 


- END 
HSGNINS <.WORD 222> 
IF LT SVCINS 

. WORD 


002322 





. WORD 


TRAP 


CSERSF 


SEQ 0080 











002322 000336 


000010 
002324 


002324 


002324 002411 


002326 


002326 


002326 000000 


TIF £Q SVCINS 
. WORD 
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«MEXIT 
ENDC 
222 


a 
-IF GT SVCINS 


. WORD 
«NLIST 


ALL MS$GNINS 
- IRP N,<RDERRM> 
MSGNINS <.WORD N> 
« ENDM 
MS$GNINS <.WORD RDERRM> 
-IF LT SVCINS 
WORD  RDERRM 


“IF £Q SVCINS 

.WORD RDERRM 
“IF GT SVCINS 
“LI 


« WORD 
»NLIST 


0 
-MCALL M$GNINS 
. IRP N,<0> 
MSGNINS <.WORD N> 
.ENDM 
M$GNINS <.WORD 0> 
-IF LT SVCINS 
-WORD 0 
-MEXIT 
~ENDC 
.IF EQ SVCINS 
. WORD 
-MEXIT 
-ENDC 
IF GT SVCINS 
LIST 


0 


« WORD 
«NLIST 


222 


RDERRM 


SEQ 0081 


> 


' ¢£ 
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-ENDC 


124 FMERRM: .ASCIZ \NOT ENOUGH MEMORY. SELECT FEWER UNITS TO FORMAT.\ 
101 RDERRM: .ASCIZ \READ ERROR WHILE ATTEMPTING TO LOAD DM PROGRAM. \ 


_— 
o-— 
vuI™N 


-EVEN 
2472 ENDMSG 
-MCALL M$POP,M$GNTAG,MS$SVC ,MSENDERR 
002472 MSPOP TS$NS,TSNESTLEV,TSTEMP 
-MCALL M$GETS,MSDECR 
IF TSNESTLEV 
ERROR TS$NESTLEV ; MACRO T$NS UNDERF LOW 


-EN 
002472 . MSGETS _TSNS, \TSNESTLEV, TSTEMP sah 
000011 TSTEMP=T$NS1 Te ee 

002472 MSDECR T$NESTLEV 
000000 TSNESTLEV=TSNESTLEV=1 
IF EQ FSMSG-T$TEMP 
002472 MSGNTAG L,T$SMSG 


.M MSGEN 
| 002472 M$GEN_ _L,\T$$MSG,SVCTAG 
| -IF LE SVCTAG 
002472 L10002 


L10002: 


«NLIST 
010000 S$LSYM=T$LSYM 
002472 M$SVC C$MSG ; 
-MCALL MS$GNINS,M$TSTLAB 
002472 M$TSTLAB 
. 4 -MCALL_ MS$TLABEL .M$INCR 
Ae gee oe ae TSTSTMAC, .MEXIT 


10 
MSTLABEL \TSTESTNUN, \TSTSTSEQ 


RADI 
airetos reas 
002472 M$GNINS ae C$MSG> 


-ENDC 

-I1F EQ SVCINS 
002472 104423 TRAP C$MSG 
»MEXIT 


- ENDC 
-IF GT SVCINS 
IST 


TRAP C$MSG 
-NLIST 


. ENDC 
1 SMSG=F SEND 
MSENDERR ENDMSG, T$TEMP 





nn 
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5 -SBTTL GLOBAL SUBROUTINES SECTION 
? ;ALOCM 
4 ;ALLOCATE A BLOCK OF FREE MEMORY. REPORT ERROR IF MEMORY EXHAUSTED. 
7 ; INPUTS: 
8 . R1 = NUMBER OF WORDS TO ALLOCATE 
9 : FFREE = FIRST FREE WORD IN MEMORY 
10 FSIZE - SIZE OF FREE MEMORY AVAILABLE IN WORDS 
11 SOUTPUTS: 
12° ; R1 = ADDRESS OF FIRST WORD OF ‘an MEMORY 
13 : FFREE - NEW FIRST FREE WORD IN MEMORY 
14 FSIZE - SIZE OF FREE MEMORY LEFT AFTER ALLOCATION 
15 = SYSTEM FATAL ERROR WILL BE REPORTED IF NOT ENOUGH MEMORY AVAILABLE 
3 ‘AND ENTIRE PROGRAM WILL BE STOPPED. 
18 002474 ALOCM: PUSH FFREE sSAVE FFREE AT ENTRY 
.IRP X,<FFREE> 
MOV X,=(SP) 
7 ENDM 
002474 013746 002170 MOV FFREE,-(SP) 
19 002500 160137 002172 SUB R1,FSIZE ;REDUCE SIZE OF FREE MEMORY 
20 002504 002701 BLT FMERR ;REPORT ERROR IF NOT ENOUGH MEMORY 
21 002506 060101 ADD R1,R1 ; CHANGE WORDS TO BYTES 
22 002510 060137 002170 ADD R1,FFREE CALCULATE NEW START OF FREE MEMORY 
23 002514 POP R1 GET START OF ALLOCATED MEMORY 
~IRP X,<R1> 
MOV (SP)+,X 
012601 MOV (SP)+,R1 


002514 
24 002516 000207 RETURN 
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GLOBAL 


MEW OO ONAWE WR 


1 
' 
} 
1 
: 





000100 


;BLDCMD 


[BUILD A COMMAND IN COMMAND PACKET 


+ INPUTS: 


SOUTPUTS 


BLDC1: 


RS = CONTROLLER TABLE ADDRESS 
- COMMAND CODE 


Ré = ADDRESS OF HOST COMM AREA 
PACKET CONTAINING REF 


AND OPCODE. ALL OTHER Ana CLEARED. 


COMMAND NUMBER 
CMD me | NUMBER IN CONTROLLER TABLE INCREMENTED AND RESUL 
IN COMMAND PACKET. 


RO - CONTENTS DESTROYED 


: PUSH <RO,R1> 


-IRP X,<RO,R1> 
MOV X,=<SP) 


NDM 

MOV RO, pe a 

MOV R1,=-(SP) 

MOV C.RING(RS) .R4 

MOV R4,R1 

ADD #HC( .MPK ,R1 

R1,HC.MSG(R4) 

#<HC,. CPK=HC .MPK>,R1 
R1,HC.CMD(R4) 

V R4,RO 


ADD #HC. CPK ,RO 
MOV #<HC, PS2>/2, R1 
(R0}+ 


BLDC1 
C.REF (RS) 
MOV Tal (R5) ,HC.CPK*P. CRF (RS) 


POP R 

-IRP X,<R1> 

MOV (SP)+,x 

.ENDM 

MOV (SP)+,R1 

POP HC. CPK+P.OPCD(RG) 

-IRP K,<HC.CPK*¢P.OPCD(R4) > 
MOV (SP)+,x 


-ENDM 
MOV (SP), HC. CPK*P.OPCD(R4) 
RE TURN 


;GET ADDRESS OF HOST COMM AREA 


; COMPUTE ooo OF MESSAGE PACKET 
[PLACE IN RING 
; COMPUTE START OF COMMAND PACKET 
;PLACE_IN RING 
+ COPY TO RO 

; COMPUTE eye OF COMMAND PACKET 
:GET WORDS TO CLEAR 
7 CLEAR PACKET 


7 INCREMENT CMD REFERENCE NUMBER 
[PUT IN PACKET 
;RESTORE R1 


sPUT OPCODE IN PACKET 


SEQ 0084 





Coats 
0000 000114 
000015 


; CLRBUF 


TCLEAR THE SPECIFIED DATA BUFFER IN THE HOST COMM AREA 
AND LOAD BUFFER DESCRIPTOR IN COMMAND PACKET TO THE BUFFER 


INPUTS: 
RS = CONT wah te TABLE ADDRESS 
RS = ADDRESS OF HOS’ COMM AREA 
mane a - OFFSET INTO HOST COMM AREA TO DATA SUFFER 
DATA BUFFER CLEARED 
COMMAND PACKET POINTING TO BUFFER 
COMMAND ENVELOPE HEADER INITIALIZED 
BYTE COUNT 2 TO SIZE OF BUFFER 
S OF DATA SUFFER 


; 
é 


. 
Z 


g 
8 


88388 
2322222 


fan 
= 
oODn< 


—. 


es 


* 
8 


24D OF HOST May AREA TO OFFSET 
Put R ADDRESS IN COMMAND PACKET 
Pu OF BUFFER IN COMMAND PACKET 
;PU Those R ADDRESS 
;GET SIZE OF BUFFER 
;CLEAR ALL THE WORDS 


D START 
. CPK*P .UADR (RS) BUF FE 
aes HC. CPK +P. BONT (RS) ; a 
T E 


BSz/2.81 


28 


CLRBFL: 


atts 
9223! 
? 


SEQ 0085 


NN EE eeeoEOOOEOEOEOEOEOEOEOEOEOEOEOOOOOEOEEOeeeeeEeeEeEeeeeeeeeeeeeeeeeeeeeeeeeeeee 


i 
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1 : GETBLK = GET FCT BLOCK 
; ; INPUT 
é 3 R1 = BLOCK NUMBER REQUESTED 
a RS = CONTROLLER TABLE ADDRESS 
oe > IMPLICIT INPUT 
? : C.FBLK(RS) = CURRENT FCT BLOCK # 
” : C.FBUF (RS) = ADDRESS OF FCT BUFFER 
9 : OUTPUT 
10 : R2 = 1 IF SUCCESSFUL 
11 : 0 IF EOF 
12 : -1 JF ATTEMPT TO READ PAST EOF 
13 ; C.FBLA(RS) = NEW FCT BLOCK # (=1 IF FILE CLOSED AT EOF) 
a6 : C.FBUF (RS) = BUFFER CONTAINS NEW DATA 
16 002656 GETBLK: PUSH <RO,R3> 
.IRP xK,<RO,R3> 
MOV X,=(SP) 
.ENDM 
002656 010046 MOV RO,-<SP) 
2660 010346 MOV R3,=-(SP) 
17 002662 020165 000026 CMP R1,C.FBLK(RS) : REQ BLK # <= CUR BLK? 
18 002666 002004 BGE 5$ : YES 
19 002670 CLOSE > NO = ‘REWIND’ THE FILE 
.MCALL M$SVC 
002670 M$SVC  C$CLOS 
.MCALL MS$GNINS,MSTSTLAB 
002670 M$TSTLAB 
-MCALL MSTLABEL.MSINCR 
TIF LT TSTSTMAC, .MEXIT 
M$TLABEL \TSTESTNUN, \TSTSTSEC 
.RADIX 8 
MS$INCR TS$TSTSEQ 
002670 M$GNINS <TRAP  ($CLOS> 
.IF LT SVCIN 
TRAP  C$CLOS 
-ENDC 
.IF €Q SVCINS 
092670 104435 TRAP C$CLOS 
.MEXIT 
~ENDC 
.IF GT SVCINS 
.LIST 
TRAP = C$CLOS 
ond .NLIST 
20 902672 012765 177777 000026 i MOV #-1,C.FBLK(RS) : FLAG FILE AS CLOSED 
22 002700 005765 000026 TST C.FBLK(RS) : FILE OPEN? 
23 002704 002003 BGE 10$ : YES 
24 002706 OPEN = #FCTFIL : OPEN FILE 
MCALL M$LDRO,M$SVC 
002706 M$LDRO wecTFiL, OPEN 
-MCALL M$GNINS 





IF NB #FCTFIL 
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002706 


002706 012700 014410 


002712 
002712 


002712 


002712 104434 


25 
26 002714 020165 000026 
44 002720 001414 


005265 
30 002726 012703 000400 
31 002732 016502 000024 
32 002736 


002736 


002736 





-IF DIF RO, oa 
MSGNINS <MO #FCTFIL,RO> 
-IF LT SvCIN NS 
MOV #FCTFIL,RO 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV 
«MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 


MFCTFIL,RO 


«NLIST 
-ENDC 
47% 


-1FF 
- ERROR sMISSING ARG. ON ‘‘OPEN’’ 


M$SVC CSOPEN 

-MCALL MS$GNINS ,MSTSTLAB 
MSTSTLAB 

-MCALL_ M$TLABEL..M$SINCR 
-IIF LT TSTSTMAC, .MEXIT 


MSTLABEL 

«RADIX 8 

MS$INCR TSTSTSEQ 
M$GNINS pa CSOPEN> 


IF LT SVCIN 
R CSOPEN 
~ENDC 
.IF EQ SVCiINS 
TRAP CSOPEN 
-MEXIT 
~ENDC 
IF GT SVCINS 
LIST 
-NLIST 
-ENDC 
10$: 
CMP R1,C.FBLK(RS) 
BEQ BLKFND 
INC Cs FBLK(RS) 
MOV 
MOV C FBUF (RS), R2 
15$ TWORD RO 
-MCALL 2 $73 ama 
MSS CS$GETW 


vc 
-MCALL MSGNINS ,MS$TSTLAB 
M$TSTLAB 
-MCALL_ MS$TLABEL ,MSINCR 


-1IF LT TSTSTMAC, .MEXIT 
«RADIX 10 


\TSTESTNUN, \TSTSTSEQ 


SEQ 0087 


MOV #FCTFIL,RO 


TRAP CSOPEN 


ie CUR BLK THE RIGHT ONE? 


SHOW NEW BLOCK NUMBER 
GET NEXT 256 WORDS 
POINT TO THE BUFFER 
GET NEXT WORD 





CZUDEAO PDP=11 
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002736 


002736 


002740 


33 002740 
002740 


002740 


34 002742 

35 002744 
002744 
002746 

36 

37 002750 

38 


39 002752 
40 002756 


002756 
002760 
41 002762 


UDA DISK 


INES SEC 


104427 


103011 


010022 


005303 
001373 


000761 
012702 


012603 
012600 
000207 
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TION 


000001 


MS$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 
MSINCR  TSTSTSEQ 
MSGNINS <TRAP C$GETW> 
-IF LT SVCINS 
TRAP ETW 
-ENDC 
-IF EQ SVCINS 
TRAP C$GETW 
-MEXIT 
-ENDC 
-IF GT SYCINS 
«LIST 
«NLIST 


M$RNRO RO,GETWORD 
.MCALL M$GNINS 
F NB R 


0 
-IF DIF RO,RO 


MSGNINS <MOV RO,RO> 
ane 
— sMISSING ARG. ON ‘'GETWORD"’ 
BNCOMPLETE GE TEOF 
-MCALL_ MS$GNINS 
INS <BCC GE TEOF > 
-IF LT SVCINS 
GE TEOF 
- ENDC 
- IF EQ SVCINS 
BCC GE TEOF 
-MEXIT 
-IF GT SVCINS 
«LIST 
«NLIST 
- ENDC 
MOV RO, (R2)+ 
SOB R3,15$ 
DEC R3 
BNE 15$ 
BR 10$ 


BLKFND: MOV #1,R2 
POP <R3,RO0> 
.IRP X,<R3-RO> 
MOV (SP)+,x 


- ENDM 
MOV (SP)+,R3 
MOV (SP)+,RO 
RETURN 


TRAP CSGETW 


CHECK FOR END OF FILE 


BCC GE TEOF 


; STORE DATA IN BUFFER 


; GET A WHOLE SECTOR 


; SEE IF THE RIGHT BLOCK NOW 
; SHOW SUCCESSFUL RETURN 


SEQ 0088 
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I 
ECTION 
000026 


012765 177777 000026 


003004 


003004 104435 


53 003006 


012603 
012600 
000207 


003006 
093010 
54 003012 


60 
61 003014 
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GE TEOF : 
33 CMP R3,4256. 
oe BNE EOFMID 
CLR R2 
CMP R1,C.FBLK(R5S) 
BEQ 10$ 
DEC R2 
19$: 
V #-1,C.FBLK(RS) 
CLOSE 
-MCALL M$SVC 
M$SVC C$CLOS 
-MCALL MSGNINS,MS$TSTLAB 
MSTSTLAB 


-MCALL_ MSTLABEL.MSINCR 
“Lok TSTSTMAC, .MEXIT 


1 
MSTLABEL \TSTESTNUN, \TSTSTSEO 


RADIX 
MSINCR TSTSTSEQ 


MSGNINS ar a C$CLOS> 


EN 

-IF EQ SVCINS 
TRAP 

-MEXIT 

- ENDC 

-IF GT SVCINS 

«LIST 


C$CLOS 


eNLIST 


POP <R3,R0> 

~iRP X,<R3,RO> 

MOV (SP)+,X 
NDM 


€ 

MOV (SP)+,R3 
MOV (SP)+,RO 
RE TURN 


7 EOFMID: ERRHRD 6,MIDERR 
3 POP <R3,R0> 

2% '  (SP)+ 

RSPDRP 


- ENDC 


MIDERR: 





- FLAG ERROR 


FLAG 437 CLOSED 
CLOSE FILE 


; LOG HARD ERROR 


CLEAR RETURN 
; DROP CURRENT UDA 


MAKE SURE EOF AT FRONT OF BUFFER 
RROR 


TRAP C$CLOS 


~ASCIZ \END OF FILE ENCOUNTERED IN MIDDLE OF SECTOR ON FCT DLL FILE\ 


SEQ 0089 
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2010 
000020 000014 


ONO wh 
S3sssess & 


#OP.RCV,RO 
MD 


MHC .BF2,RO 
LRBUF 


ND CMD 
A#CT.REQ,C.FLG(RS) 


YorwW 
~ 
J 





;BUILD A RECEIVE DATA COMMAND PACKET 
;POINT TO BUFFER IN PACKET. 
BUF FE 


SET RESPONSE FLAG 
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1 

2 
3 
4 
5 
o 
7 
8 
9 
0 
1 

2 
3 
4 
5 
6 
7 
8 
9 


1 
} 
1 
1 
1 
1 
1 
1 
1 
1 





COMM 


ZALLOCATES MEMORY FOR HOST COMM AREA AND PACKET BUFFERS WITH ONE 
DESCRIPTOR _IN EACH RING. TO BE CALLED AFTER INITIALIZING 
zA CONTROLLER TABLE. 


: INPUTS: 
R5 - ADDRESS OF CONTROLLER TABLE 

OUTPUTS : 

; CONTROLLER TABLE POINTING TO HOST COMM AREA 

: RING POINTERS TO PACKETS 

3 R4 = ADDRESS OF RING BUFFER 

HCOMM: MOV MHC .S1Z/2,R1 :GET SIZE OF AREA TO ALLOCATE 
CALL ALOCM ZALLOCATE THE MEMORY 
MOV R1,R4 :GET ADDRESS OF HOST COMM AREA 
ADD #HC.RESZ,R4 [POINT TO RING BUFFER 


MOV R4,C.RING(RS) [PLACE IN CONTROLLER TABLE 
RETURN 
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DI 
OUT! SE 


} 7 ISCAN 

3 : TEMPORARY INTERRUPT SERVICE SCANNER. 

$ SSETS CT.MSG AND CLEARS CT.CMD IF MESSAGE PACKET RECEIVED. 
5 : INPUTS: 

? : RS = CONTROLLER TABLE ADDRESS 

8 : R& = HOST COMM AREA ADDRESS 

10 003170 032765 000004 000014 ISCAN: BIT #CT.CMD,C.FLG(RS) :LOOK AT CT.CMD BIT 
11 003176 001412 BEQ ISCANX ‘EXIT IF CLEAR 

12 003200 032764 100000 000002 BIT #RG.OWN,HC.MCT(R4) ‘LOOK AT OWN BIT 
13 003206 001006 BNE ISCANX ‘EXIT IF STILL SET 
14 003210 042765 000004 000014 BIC #CT.CMD,C.FLG(RS) *CLEAR CT. CMD 

15 003216 052765 000010 000014 BIS #CT.MSG.C.FLG(R5) ‘SET CT.MSG 

16 003224 000207 ISCANX: RETURN 


L SUBROUTI 


M—OVDONANEWR- 


— 4 


MONIKA eS 2S OS 
MH OOONAUEWN 


23 003314 


003314 
003316 
003320 
24 003322 
25 003324 


010046 


000 
000207 


000004 





000114 
000120 
000134 
000026 


000014 
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;LOAD 


ISSUE DOWNLINE LOAD AND EXECUTE COMMAND TO UDA. 
; HAPPENS WITHOUT ERROR. 


; INPUTS: 
R5 = CONTROLLER TABLE ADDRESS 
S OUTPUTS: 


; i CLEAR IF NO ERR 
: Z SET IF ERROR AND ERROR REPORTED 


LOAD: PUSH <RO,R3,R4> 
- IRP X<RO;RS, oR4> 


CHECK THAT LOAD 


MOV -DLE GET DOWNLINE LOAD COMMAND 
CALL BLDCMD {BUILD COMMAND PACKET 
MOV DMTRLN,HC.CPK+P.TRLN(R4); SET TRANSFER LENGTH 
MOV DMPROG,HC.CPK+P.MAIN(R4); SET HOST ADDRESS OF MAIN PROGRAM 
MOV DMOVRL .HC.CPK+P.OVRL(R4); SET HOST 98 U OF OVERLAYS 
CALL SNDCMD :SEND COMMAND TO UDA 
CALL WAITMS [WAIT FOR pte! — 
BIT #ST.MSK,HC.MPK+P.STS(R4) ;LOOK FOR ANY ERR 
BNE LOADE1 
BIC #CT.CMD,C.FLG(RS) :CLEAR COMMAND ISSUED 
POP <R4,R3,RO0> 
.IRP X,<R4,R3,RO> 
MOV (SP)+,X 


~ENDM 

MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,RO 


CLZ :CLEAR Z TO INDICATE NO ERROR 
RE TURN 


SEQ 0093 


D 8 
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ISK 
GLOBAL SUBROUTI ECT 
} ;UDA FAILED TO DOWNLINE LOAD DM PROGRAM 
3 003326 016537 000004 002074 LOADE1: MOV C.UNIT(R5) ,L.$LUN ;TELL DRS WHICH UNIT 
4 003334 ERRHRD 7,LOADM1 


.MCALL <IMSERRINS 
003334 MSERRINS 7,LOADM1,,C$ERHRD 
.MCALL MSGNINS, meWORD., M$TSTLAB 
003334 M$SVC -C$ERH 
-MCALL MSGNINS MSTSTLAB 
003334 MS$TSTLAB 
.MCALL M$TLABEL,MS$INCR 
“LIF LT TSTSTMAC, .MEXIT 
“RADIX 10 
MSTLABEL | \TSTESTNUN, \T$TSTSEQ 


RADIX 
MSINCR_ TSTSTSEQ 
003334 M$GNINS <TRAP C$ERHRD> 
-IF LT SVCINS 
TRAP CSERHRD 
-MEXIT 
-ENDC 
-I1F EQ SVCINS 
003334 104456 TRAP CSERHRD 
-MEXIT 


-ENDC 
-I1F GT SVCINS 
-LIST 


TRAP CSERHRD 
»NLIST 


- ENDC 
000012 «RADIX 10 
-IF NB 7 
000007 TSERRNUM=7 
«ERROR ;MISSING ERROR-NR 
NDC 


003336 M$WORD \TSERRNUM 
-MCALL MSGNINS 


. IRP <7> 
MSGNINS rs ‘WORD N> 
003336 aati x <.WORD 7> 
.IF LT SVCINS 
* WORD 7 
-MEXIT 
-ENDC 


-IF EQ SVCINS 
003336 000007 «WORD 7 


“IF GT SVCINS 
.WORD 7 
.NLIST 
ENDC 


000010 «RADIX 8 
- IF NB LOADM1 
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003340 M$WORD LOADM! 
— MSGNINS 
. IRP N,<LOADM1> 
MSGNINS <.WORD N> 
003340 MSGNINS <.WORD LCADM1> 
-IF LT SVCINS , 
-WORD LOADM1 


“> 
“no 


-IF EQ SVCINS 
003340 003356 «WORD LOADM1 


-IF GT SVCINS 


«WORD  LOADM1 
«NLIST 


003342 M$WORD 


-ENDM 

003342 MSGNINS <.WORD (> 
-IF LT SVCINS 
«WORD 0 
-MEXIT 


-ENDC 
IF EQ SVCINS 
603342 000000 -WORD 0 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 
-WORD 0 
«NLIST 
- ENDC 
5 003344 POP <R4 ,R3,RO> 
-IRP X,<R4,R3,RO0> 
MOV (SP)+,X 


. ENDM 
003344 012604 MOV (SP)+,R4 
003346 012603 MOV (SP)+,R3 
003350 012600 MOV (SP)+,RO 


6 003352 000264 SEZ ;SET Z TO INDICATE ERROR OCCURRED 
7? 003354 000207 RETURN 


8 
B 003356 125 104 101 LOADM1: mal RETURNED ERROR TO DOWNLINE LOAD & EXECUTE COMMAND\ 
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! :LOADDM 
| 3 ‘LOAD A DM PROGRAM INTO A CONTROLLER 
5 i INPUTS: 
6 RS = CONTROLLER TABLE ADDRESS 
7 S IMPLICIT INPUTS: 
. ; DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 
10 ‘OUTPUTS: 
11 ; IF LOAD SUCCEEDS - 7 € 
12 : CONT ROLLER TABLE MARKED LOADED 
13 ; IF ERROR = Z SET 
15 003444 004737 012110 LOADDM: CALL UDAINT 7 RING BUFFER AND INTERRUPTS DISABLED 
16 003450 001406 BEQ LOADER sBRANCH IF AN ERROR 
17 003452 004737 003226 CALL LOAD ;LOAD INTO UDA 
18 003456 00140 BEQ LOADER GET OUT IF LOAD ERROR 
19 003460 052765 000001 000014 LOADEX: BIS ACT.LD,C.FLG(RS) SET DM LOADED IN CONTROLLER TABLE 
20 003466 000207 LOADER: RETURN 





| CZUDEAO PDP=11 UDA DI 
‘oats SUBROUTINES SECTION 
| 1 003470 
003470 

003470 


003470 012700 004422 


003474 


003474 


003474 


003474 106434 


2 003476 000207 
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OPENLF: OPEN #FNAME 

-MCALL MSLDRO,M$SVC 
MSLDRO FNAME ,OPEN 

-MCALL _MSGNINS 

- IF NB #FNAME 

-IF DIF RO,#FNAME 
MSGNINS <MOV #FNAME ,RO> 
-IF LT ~~ 


MOV 

ENDC 

IF EQ SVCINS 

MOV 

oMEXIT 

END. 

~1F GT SVCINS 
IST 


° 


#F NAME ,RO 


»NLIST 


on 
ERROR ;MISSING ARG. ON ‘OPEN’ 
ENDC 


M$SVC CSOPEN 
-MCALL MS$GNINS,MSTSTLAB 
MSTSTLAB 

-MCALL MSTLABEL ,MSINCR 

-TIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
9 


«RADIX 

MSINCR TSTSTSEQ 
MSGNINS <TRAP (C$OPEN> 
-IF LT SVCINS 

TRAP 


CSOPEN 
-MEXIT 
-ENDC 
-IF EQ SVCINS 

TRAP CSOPEN 
»MEXIT 
-ENDC 
JF GT SVCINS 
LIST 

»NLIST 


RE TURN 


\TSTESTNUN, \TSTSTSEQ 


OPEN FILE TO READ 


MOV 


TRAP 


FNAME ,RO 


CSOPEN 


SEQ 0097 


003500 


| 003502 


2 003502 
3 003504 
4 003506 
5 003510 
6 003512 


003512 


003512 





1046626 


“achak GETBYTE RO ;GET A BYTE 


1B 
-MCALL MSGNINS ,MSTSTLAB 
MST STLAB 
ALL MSTLABEL .MSINCR 
atG LT TSTSTMAC, oMEXIT 
ADIX 10 


MSTLABEL \TSTESTNUN, \TSTSTSEQ 

«RADIX 8 

MSINCR TSTSTSEO 

MSGNINS <TRAP (S$GETA> 

IF LT SVCINS 

TRAP C$GET8 

oMEKIT 

.ENDC 

IF EQ SVCINS 
TRAP 

oMEXIT 

.ENDC 

.1f GT SVCINS 

oLIS? 


C$GETB 


NLIST TRAP C$GETB 


RO, GE TBYTE 
GNINS 


RO 
-IF DIF RO,RO 
MSGNINS <MOVB RO,RO> 


ENC 
“ERROR MISSING ARG. ON ‘‘GETBYTE’’ 
TST RO z1F ZERO 
BEQ RDREC : KEEP READING 
DEC RO WHEN NOT ZERO 
BNE RWRDE 1 : IT BETTER BE A ONE 
GETBYTE RO ; AND THE NEXT BYTE 
-MCALL MS$SVC,MSRBRO 
M$SVC C$GETB 
-MCALL MSGNINS,MSTSTLAB 
MSTSTLAB 


L 
MCALL MSTLABEL .MSINCR 
“AIF LT TSTSTMAC, .MEXIT 


10 
sas \TSTESTNUN, \TSTSTSEQ 
MSINCR TSTSTSEQ 
MSGNINS <TRAP °CSGE TED 
IF LT SVCINS 
TRAP C$GETB 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
TRAP 
-MEATT 


C$GETB 





003514 


3534 
3540 


et ed ot ot ot SS 


NS SONRARRAW=SoMN 
8ggs ssssssss 


003600 


003600 


aw 


005700 
001064 
012704 
004737 
013703 
004737 
162703 
001431 


013705 


020537 
103447 
020537 
101044 


104426 


K 
T 


I 
puncte MACRO V046.00 23=JUL=81 15:27:47 PAGE Sot 


002214 


-ENDC 
-IF GT SVCINS 
«LIST 


TRAP 


«NLIST 


- ENDC 
M$RBRO RO,GETBYTE 
-MCALL MSGNINS 

F NB RO 


“IF DIF RO,RO 


SEQ 0099 


C$GE1B 


MSGNINS <MOVB RO,RO> 
4rd 
te MISSING ARG. ON ‘'GETBYTE’’ 
TST RO : SHOULD BE A ZERO 
BNE RWRDE 1 
MOV #1 RS 3SET INITIAL CHECKSUM TO INCLUDE THE ONE READ 
CALL F WORD ;READ BYTE COUNT 
MOV FDATA,R3 SAVE IN R3 
CALL FWORD READ LOAD ADDRESS 
SUB #6 RS ; SUBTRACT BYTES ALREADY READ FROM BYTE COUNT 
BEQ RWORDT :1F RESULT IS ZERO, THIS IS A 
; TRANSFER BLOCK 
MOV FDATA,R5 ; LOAD ADDRESS 
MOV R5,R2 
SUB RDLOW,R2 ; COMPUTE OFFSET 
ADD RD.AT,R2 : REAL LOAD ADDRESS 
1$: CMP R5 ,RDLOW ; CHECK BOUNDS 


BLO RDERR1 
CMP R5 ,RDHIGH 
RDERR1 
GETBYTE RO ; GET NEXT DATA BYTE 
-MCALL M$SVC, 0 
M$SVC C$GETB 
-MCALL MS$GNINS,,M$TSTLAB 
MSTSTLAB 
-MCALL_ M$STLABEL.MS$INCR 
-1IF LT TSTSTMAC, .MEXIT 


-RADIX 10 
a te \TSTESTNUN, \TSTSTSEQ 


-RADIX 
M$INCR TSTSTSEQ 


M$GNINS <TRAP C$GETB> 
-IF LT SVCINS 
TRAP C$GETB 
-ENDC 
-IF EQ SVCINS 
TRAP C$GETB 


-MEXIT 

- ENDC 

-IF GT SVCINS 
IST 


TRAP 


a a ca cc cc 


C$GETB 


he 
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.NLIST 
.ENDC 
093602 MSRBRO RO,GETBYTE 
.MCALL MS$GNINS 
-IF NBR 
"IF DIF RO,RO 
M$GNINS <MOVB  RO,R0> 
mii 
-ERROR :MISSING ARG. ON ‘‘GETRYTE"’ 
27 003602 060004 " ADD ROR ; UPDATE CHECKSUM 
28 003604 110022 MOVB ~— RO RR2)+ + STORE IN REAL MEMORY 
29 003606 105725 TSTB —-_ (R5) + : BUMP FAKE MEM ADDR 
31 003610 SOB R3,1$ : PROCESS REMAINDER OF RECORD 
003610 005303 DEC R3 
- 003612 001364 BNE 1$ 
33 003614 GETBYTE RO :GET CHECKSUM BYTE 


-MCALL aoe 


003614 M$SVC C$GETB 
-MCALL MS$GNINS,MSTSTLAB 
003614 MSTSTLAB 
-MCALL_ M$TLABEL,.MSINCR 
-IIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
MSTLABEL | \TSTESTNUN, \T$TSTSEQ 


RADIX 
M$INCR_ TS$TSTSEQ 
003614 M$GNINS < a et C$GETB> 


.E 4 
-IF EQ SVCINS 

003614 104426 TRAP C$GETB 
»MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 


TRAP C$GETB 
eNLIST 


003616 MSRBRO RO,GETBYTE 
oe ta ee 


0 
-IF DIF RO,RO 
~~ <MOVB R0O,RO> 


ND 
IFF 
- ERROR :MISSING ARG. ON ''GETBYTE"' 
34 003616 060004 , ADD RO.RS zADD TO COMPUTED CHECKSUM 
35 003620 105704 TSTB —s_ RG SCHECK LOW BYTE OF SUM 
36 003622 001026 BNE RWRDE3 “BRANCH IF CHECKSUM ERROR 
37 003624 000264 SEZ “RETURN WITH 2 SET TO INDICATE 









40 003630 
| 003630 
003630 


003630 


003630 


003632 


41 003632 


003640 


003640 


104426 


060004 


105704 
001020 


104435 
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38 003626 000207 


RETURN 


RWORDT: GETBYTE RO 
-MCALL M$SVC ,MS$RBRO 
M$SVC C$GETB 

| sant 


MS$TSTL 
-MCALL_ MSTLABEL,MSINCR 
‘Mom TSTSTMAC, .MEXIT 


10 
MS$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 
M$INCR TSTSTSEQ 
MSGNINS <TRAP CS$GETB> 
the LT te 
TRAP C$GETB 
-MEXIT 
- ENDC 
IF EQ SVCINS 
TRAP C$GETB 
-MEXIT 
- ENDC 
IF GT SVCINS 
«LIST 
-NLIST 


M$RBRO RO,GETBYTE 
-MCALL MSGNINS 


0 
-IF DIF RO,RO 


M$GNINS <MOVB  RO,RO> 


ERROR ;MISSING ARG. ON ‘'GETBYTE"’ 
ADD RO,R4 
R4 
BNE g RWRDE3 
M$SVC CS$CLOS 
-MCALL MS$GNINS ,MSTSTLAB 
MSTSTLAB 
-MCALL_ MS$TLABEL .MSINCR 
-ITIF LT TSTSTMAC, .MEXIT 
»RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 


DIX 8 
MS$INCR TSTSTSEQ 
M$GNINS “ya C$CLOS> 


-ENDC 
-IF EQ SVCINS 
TRAP C$CLOS 


RECORD OK 


READ CHECKSUM BYTE 


TRAP 


z:ADD TO COMPUTED CHECKSUM 
CHECK LOW BYTE OF SUM 
BRANCH IF CHECKSUM ERROR 


:CLOSE FILE 


C$GETB 





SEQ 0101 


L 
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| CZUDEAO PDP=11 UDA 
GL NES ION 


DI 
OBAL SUBROUT! SE 
-MEXIT 
« ENDC 
-IF GT SVCINS 
«LIST 
TRAP C$CLOS 


«NLIST 
- ENDC 
45 003642 000244 CLZ RETURN WITH Z CLEAR TO INDICATE 
re 003644 000207 RETURN : NO MORE WORDS 
48 003646 FWORD: GETBYTE RO READ A BYTE FROM FILE 
-MCALL M$SVC,MS$RBRO 
003646 M$SVC C$GETB 
-MCALL MS$GNINS ,MS$TSTLAB 
003646 MS$TSTLAB 
-MCALL_ MSTLABEL .MSINCR 
-1IF LT TSTSTMAC, .MEXIT 
«RADIX 
MS$TLABEL \TSTESTNUN, \T$TSTSEQ 
«RADIX 
: MS$INCR_ TSTSTSEQ 
003646 MSGNINS <TRAP C$GETB> 
IF LT SVCINS 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
003646 104426 TRAP C$GETB 
-MEXIT 
-ENDC 
-'F GT SVCINS 
-LIST 
TRAP C$GETB 
-NLIST 
- ENDC 
003650 M$RBRO RO,GETBYTE 
-MCALL M$GNINS 
-IF NBR 
-IF DIF RO,RO 
MSGNINS <MOVB RO,RO> 
ae 
—— zMISSING ARG. ON ''GETBYTE"’ 
49 003650 060004 ADD RO,R4 UPDATE CHECKSUM ERROR 
50 003652 110037 004436 MOVB RO,FDATA START TO BUILD WORD 
51 003656 GETBYTE RO READ ANOTHER BYTE FROM FILE 
-MCALL M$SVC ,MS$RBRO 
003656 M$SVC C$GETB 
-MCALL MSGNINS ,M$TSTLAB 
003656 MSTSTLAB 


-MCALL_ M$TLABEL ,.MSINCR 
-ITIF LT TSTSTMAC, .MEXIT 
»RADIX 10 

MS$TLABEL \TSTESTNUN, \TSTSTSEQ 


»RADIX 
M$INCR TSTSTSEQ 


















003656 


003656 


003660 


52 003660 
53 003662 
666 
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ISK 
ECTION 


104426 


060004 
110037 004437 
000207 


M 8 
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MSGNINS <TRAP C$GETB> 
SVCINS 
KIT C$GETB 


-MEX 
-ENDC 
-IF EQ SVCINS 

TRAP C$GETB 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 


C . 
M$RBRO RO,GETBYTE 
MSGNINS 


R 
-IF DIF RO,RO 
=~ ps <MOVB RO, RO> 


“ERROR ;MISSING ARG. ON "‘GETRY’”"* 


ADD 
RETURN 


RO,R4 
MOVB RO,FDATA+1 


SEQ 0103 


TRAP C$GETB 


UPDATE CHECKSUM 
OMPLETE WORD 
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1 003670 
003670 
003670 
003670 


ISK 
ECTION 


003670 


003670 104454 


000012 
072461 


003672 


003672 


003672 072461 


000010 
003674 
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RWRDE1: ERRSF - -RWRDEM, RWRDM1 


-MCALL MSERRIN 


MSSVC 

-MCALL MSGNINS ,M$TSTLAB 
MSTSTLAB 

-MCALL_ MSTLABEL .MSINCR 

-I1IF LT TSTSTMAC, .MEXIT 
RADIX 1 


° 0 
MSTLABEL \TSTESTNUN, \T$TSTSEQ 


-RADIX 8 
MS$INCR TSTSTSEQ 
M$GNINS lyn CSERSF > 


DC 
-IF EQ SVCINS 
TRAP 
-MEXIT 
« ENDC 
-IF GT SVCINS 
«LIST 


CSERSF 


«NLIST 

- ENDC 
«RADIX 10 
-IF NB 30001 
ee sient 
—— zMISSING ERROR-NR 
MS$WORD \TSERRNUM 
-MCALL M$GNINS 
- IRP N,<30001> 
MS$GNINS <.WORD N> 
-ENDM 
M$GNINS <.WORD 30001> 
-IF LT SVCINS 
-WORD 30001 

EXIT 
-IF EQ SVCINS 

-WORD 30001 

-IF GT SVCINS 

ST 


»NLIST 
«RADIX 


DEM 
-MCALL M$GNINS 
. IRP N,<RWRDEM> 





START FRAME NOT FOUND 


MSERRINS “30001 -RWRDEM,RWRDM1 , CSERSF 
-MCALL Meena’ MSWORD ,M$TSTLAB 


TRAP CSERSF 


«WORD 30001 


SEQ 0104 


CZUDEAO PDP=11 UDA D 
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003674 


003674 


003676 


003676 


003676 


2 003700 
003700 
003700 
003700 


003700 


I 
E 


004112 


003720 


SK 
CTION 


8 9 
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MSGNINS <.WORD N> 


. ENDM 
MSGNINS <.WORD RWRDEM> 
IF LT SVCINS 
«WORD  RWRDEM 
LMEXIT 
-ENDC 
-IF EQ SVCINS 
-WORD RWRDEM 


LIF GT SVCINS 
.NLIST 
M$WORD 0 


MS$WORD RWRDM1 
-MCALL MSGNINS 

. IRP N,<RWRDM1> 
MSGNINS <.WORD N> 


M$GNINS <.WORD RWRDM1> 


IF LT SVCINS 
“WORD — RWRDM1 
XIT 


- ENDC 
-IF EQ SVCINS 
. WORD 

-MEXIT 

-ENDC 
-IF GT SVCINS 

IST 


RWRDM1 


«NLIST 


RWRDE3: ERRSF inti hetiati ; CHECKSUM ERROR 


-MCALL a INS 

MSERRINS 30003 ,RWRDEM,RWRDMS3 , CSERSF 
-MCALL hot Pp MSWORD ,M$TSTLAB 

M$SVC_ CSERSF 

-MCALL MS$GNINS ,M$TSTLAB 

MSTSTLAB 

-MCALL_ M$TLABEL,M$SINCR 

IF LT T$TSTMAC, .MEXIT 


° 10 

MS$TLABEL \TSTESTNUN, \TSTSTSEQ 
»RADIX 8 

M$INCR_ TSTSTSEQ 


M$GNINS <TRAP C$ERSF> 
-IF LT SVCINS 





«WORD RWRDEM 


«WORD RWRDM1 


SEQ 0105 


oe PDP=11 UDA 
GLOBAL NES 


DI 
SUBROUT I SE 


003700 104454 


000012 
072463 


003702 


003702 


003702 072463 


000010 
003704 


003704 


003704 004112 





SK 
CTI 
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TRAP CSERSF 
EXIT 


-ENDC 

-IF EQ SVCINS 
TRAP 

-MEXIT 

-IF GT SVCINS 

ot IST 


CSERSF 


«NLIST 
-ENDC 
«RADIX 10 
-IF NB 30003 
oh” paar: 
-ERROR ;MISSING ERROR-NR 
« ENDC 
M$WORD \TSERRNUM 


MSGNI NS <.WORD N> 
mets <.WORD 30003> 
; SVCINS 


a 


LIF EQ SVCINS 
.WORD 30003 


“IF GT SVCINS 


«NLIST 


M$WORD RWRDEM 
-MCALL MS$GNINS 

- IRP N,<RWRDEM> 
MSGNINS <.WORD N> 

NDM 
MSGNINS <.WORD RWRDEM> 
-IF LT SVCINS 
«WORD  RWRDEM 
-MEXIT 
« ENDC 
-I1F EQ SVCINS 

«WORD RWRDEM 

-MEXIT 
- ENDC 
-IF GT SVCINS 
»LIST 


«NLIST 


TRAP CSERSF 


«WORD 30003 


«WORD RWRDEM 


SEQ 0106 





003706 


003706 


003706 


3 003710 
003710 
003710 
003710 


003710 


003710 
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GLOBAL SUBROUTINES SECTION 















004044 


104454 


000012 
072462 
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MSGNINS <.WORD N> 


-ENDM 
M$GNINS <.WORD RWRDM3> 
-IF LT SVCINS 

« WORD 


»MEXIT 
-ENDC 
-IF EQ SVCINS 
; «WORD RWRDM3 
«MEXIT 


-ENDC 
-I1F GT SVCINS 
IST 


«NLIST 
-ENDC 
~ IFF 
M$WORD 0 
« ENDC 
RDERR1: ERRSF al RWRDEM, RWRDM2 
-MCALL MSERRIN 
MSERRINS 30002, RWRDEM,RWRDM2 , CSERSF 
MCALL M$GNINS ,MSWORD ,M$TSTLAB 
MSSVC_ CSERSF 
-MCALL MS$GNINS,MS$TSTLAB 


MSTSTLAB 

-MCALL_ MSTLABEL,.MSINCR 
-ITIF LT TSTSTMAC, .MEXIT 
-RADIX 10 

MSTLABEL \TSTESTNUN, \T$TSTSEQ 


RADIX 
MSINCR TSTSTSEQ 
CSERSF > 


- ENDC 
IF EQ SVCINS 
TRAP 
-MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


CSERSF 


«NLIST 
-ENDC 
DIX 10 


“IF NB 30002 
TSERRNUM= 30002 


« WORD 


TRAP 


RWRDM3 


CSERSF 


SEQ 0107 
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CZUDEAO PDP=11 UDA D 
TINES SECTION 


I 
GLOBAL SUBROUTI E 
FF 

-ERROR :MISSING ERROR=NR 
003712 M$WORD \TSERRNUM 


MSGNINS <.WORD N> 


-ENDM 
003712 MSGNINS <.WORD 30002> 
ay SVCINS 


“IF €Q SVCINS 
003712 072462 .WORD 30002 


« ENDC 
-1F GT SVCINS 


«NLIST 
| - ENDC 
| 000010 «RADIX 8 
-I1F NB RWRDEM 
003714 M$WORD RWRDEM 
-MCALL MS$GNINS 
- IRP N,<RWRDEM> 
MSGNINS <.WORD N> 


MSGNINS <.WORD RWRDEM> 
IF LT SVCINS 


| 003714 
| "WORD — RWRDEM 


"{F EQ SVCINS 
003714 004112 .WORD RWRDEM 


“IF GT SVCINS 
.NLIST 


MSWORD 0 


-1F NB RWRDM2 
003716 M$WORD RWRDM2 
-MCALL M$GNINS 
. IRP N,<RWRDM2> 
MSGNINS <.WORD N> 


M$GNINS <. we RWRDM2> 








- WORD 


. WORD 


30002 


RWRDEM 


SEQ 0108 


pment snes tnemennnisn 
F 9 
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| GLOBAL SUBROUTINES SECTION 
sIF EQ SVCINS 
003716 003766 .WORD RWRDM2 
-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 
«WORD RWRDM2 
»NLIST 
-ENDC 
M gd 
M$WORD 0 
‘ . ENDC 
5 003720 BGNMSG RWRDM1 
-MCALL_ _M$PUSH,M$INCR ,MSGNGBL 


000040 I $MSG=F $BGN 
003720 M$PUSH TSNS, speertey? -F $MSG 


003720 M$INCR _TSNESTLEV 
000001 — TSNESTLEV=TSNESTLEV+1 
003720 MS$SETS TSNS,\TSNESTLEV,FSMSG 
000011 TSNS1=F $MSG 
010003 T$SMSG=T$TAGNUM 
003720 M$INCR TSTAGNUM 
019004 T$TAGNUM=T$TAGNUM+ 1 
003720 M$GNGBL RWRDM1 
-MCALL MSGEN 
. IF NB,RWRDM1 
IF NB 


M$GEN  RWRDM1,:,SVCGBL, 
B 
003720 M$GEN RWRDM1,:,SVCGBL.< > 


-IF LE SVCGBL 
003720 RWRDM1: : 


RWRDM1:: 
-NLIST 


6 003720 PRINTB #RWRDF 1, AF NAME 
-MCALL M$PRINT 
-IF B  #RWRDF1 
«ERROR ;MISSING FORMAT 


-IF B  <AFNAME> 
MSPRINT C$PNIB,ARWRDF 1 


"2 pu. ; 
003720 MS$PRINT C$PNTB,ARWRDF 1, <#F NAME> 
-MCALL M$COUNT ,M$PUT ,MS$GNINS ,M$SVC 
000001 T$AR 


ARGCNT=1 
003720 M$COUNT TSARGCNT,<#FNAME>,<>,<>,<>,<>,<>, <>, <> 





| 
“CZUDEAO_PDP=11_ UD 
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GLOBAL SUBROUTINE C 


TION 


“PY 
“no 


“TF NB <A#FNAME> 
000002 f ** aettcteiat 

"IRP_—sN, <\ TSARGCNT> 

M$PU WN ,ARWRDF 1, <A#FNAME>, <>, <>, <>, <>, <>, <>, <> 


003720 MSPUT  #2,ARWRDF1,<#FNAME>,<>,<>,<>, <>, <>, <>, <> 
M$PUT1 


.1F NB <ARWRDF1> 
003720 MSPUT SE TATOO AN en ener 


.IF NB <AFNAME> 
003720 MSPUT  <M#FNAME>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
-IF NB <> 
MSPUT <>, <>, <>, 69,67, 2,65, 2>,0> 


-1F NB <#FNAME> 
003720 MS$PUT? &#FNAME 
-MCALL MS$GNINS 


003720 MSGNINS <MOV #FNAME, =(SP)> 


| 

-1F NB <> 

M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 
ENDC 

| 


MEXIT 
-ENDC 
-IF EQ SVCINS 
003720 012746 004422 MOV MF NAME ,- (SP) 
»MEXIT 
« ENDC 
-IF GT SVCINS 
-LIST 
MOV #FNAME ,~(SP) 
«NLIST 
« ENDC 
o1FF 


IF DIF B,<#FNAME> 
ERROR ;ILL. ARG. *#FNAME*’ ONLY ‘'B'' IS ALLOWED. 


M$GNINS <CLR —_ =(SP)> 
M$GNINS <BISB- ,(SP)> 


. NB <ARWRDF 1> 
003724 MS$PUT1 #RWRDF 1 
-MCALL MS$GNINS 


003724 MSGNINS <MOV #RWRDF 1,=(SP)> 
-IF LT SVCINS 

MOV #RWRDF 1,-(SP) 

oMEXIT 

- ENDC 





i 
CZUDEAO PDP=11 UDA 


] 
GLOBAL SUBROUTINES SECTION 


003724 0127466 004172 


003730 


003730 


003730 012746 000002 


003734 


003734 010600 
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IF EQ SVCINS 
MOV 
-MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


#RWRDF 1 ,=(SP) 


MOV 
«NLIST 


“IF DIF B,<#RWRDF1 
“ERROR; TILL. ARG.  wRWRDF I" ONLY 'B'' IS ALLOWED. 


«END 
MSGNINS <CLR =(SP)> 
MSGNINS <BISB- = ,(SP)> 


IF NB <#2> 
om 
“Se MSGNINS 
MSGNINS <MOV #2,-(SP)> 
IF LT SVCINS 
MOV #2,~(SP) 
-MEXIT 
« ENDC 
-1F EQ SVCINS 
MOV 
»MEXIT 
- ENDC 
-I1F GT SVCINS 
IST 


eta 


#2,-(SP) 


MOV 
«NLIST 
oe 


~IFF 

-IF DIF B,<#2> 

“ERROR ;1LL. ARG. ‘#2°* ONLY ‘"B'' IS ALLOWED. 
~MEXIT 


-ENDC 
M$GNINS <CLR =-(SP)> 
M$GNINS <BISB-— ,(SP)> 
-ENDC 


- ENDC 
MSGNINS <MOV SP, RO> 
IF LT SVCINS 
Mov SP,RO 
.MEXIT 

~ENDC 

.IF EQ SVCINS 

Mov 

sMEXIT 

-ENDC 

-1F GT SVCINS 


~) 


SP ,RO 


SEQ 0111 


#RWRDEF 1, = (SP) 


#2,-(SP) 


a a nn - 


| I 9 
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| 


GLOBAL SUBROUTINES SEC 
MOV SP,RO 
«NLIST 
- ENDC 
003736 M$SVC C$PNTB 
-MCALL MS$GNINS ,MSTSTLAB 
003736 MSTSTLAB 


L 
-MCALL_ M$TLABEL ,MSINCR 
LIF LT TSTSTMAC, .MEXIT 


°! 10 
oth ee \TSTESTNUN, \T$TSTSEQ 
M$INCR TSTSTSEQ 
003736 MSGNINS <TRAP C$PNTB> 
-IF LT SVCINS 
TRAP 
»MEXIT 
-ENDC 
-I1F EQ SVCINS 
003736 104414 TRAP C$PNTB 
-MEXIT 
-ENDC 
IF GT SVCINS 
-LIST 


TRAP C$PNTB 
«NLIST 
«ENDC 


. IRP N,<\TEARGCNT *2+2> 
M$GNINS <ADD #N,SP> 


-ENDM 
003740 MSGNINS <ADD | 46, SP> 
ADD #6,SP 
« ENDC 
-IF EQ SVCINS 
003740 062706 000006 ADD #6,SP 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 
ADD #6,SP 
-NLIST 


a @ ae 

MSPRINT C$PNTB,4RWRDF 1,<#FNAME>, <> 

ar @ <= 

MSPRINT C$PNTB,ARWRDF1,<4#FNAME>,<>,<> 


‘5 A be :. 
M$PRINT C$PNTB,ARWRDF 1,<#FNAME>,<>,<>,<> 








oi. pom UDA D 
NES S 


a 


7? 003744 


I 
E 


003744 


600001 
003744 


003744 


003744 


003744 


003744 


003744 012746 004230 





CNT 
ayy 
F NB 


J 
M$GNINS 


< 
MSCOUNT 
DC 


J 9 
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<> 

CS$PNTB,ARWRDF 1,<#FNAME>,<>,<>,<>,<> 

<> 

CSPNTB,ARWRDF 1,<#FNAME>,<>,<>,<>,<>,<> 


<> 
CSPNTB,ARWRDF 1, <#FNAME>,<>,<>,<>,<>,<>,<> 


CSPNTB,ARWRDF 1,<#FNAME>,<>,<>,<>,<>,<>,<>,<> 
PRINTB #RWRDF 2 

MSPRINT 

#RWRDF 2 

sMISSING FORMAT 

<> 

CS$PNTB,ARWRDF 2 

ane -MSPUT ,MSGNINS ,M$SVC 

TSARGCNT ,<>,<>,<>,<>,<>,<>,<>,<> 


TSARGCNT , <>, <>, <>, <>, <>,<>,<>,<> 


.IF NB <> 
~~ pensions: 


N,<\TSARGCNT> 
4N,ARWRDF 2,<>, <>, <>, <>, <>, <>, <>, <> 


#1, ARWRDFZ,<>,<>,<>,<>,<>,<>,<>,<> 
MSPUT 1 


<ARWRDF 2> 

<ARWRDF 2>, <>, <>, <>, <>, <>, ,0,0> 
M$PUT 1 

<> 

<>, <>, <>, <>, <>, <>, <>, <>, <> 


<ARWRDF 2> 
ARWRDF 2 
MSGNINS 


<MOV #RWRDF 2,-(SP)> 


-IF LT SVCINS 


MOV 
EXIT 


-ENDC 
IF EQ SVCINS 
MOV 


-MEXIT 


ARWRDF 2,-(SP) 


ARWRDF 2,-(SP) 


-ENDC 
-IF GT SVCINS 
IST 


SEQ 0113 


#RWRDF 2,-(SP) 
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GLOBAL SUBROUTINES SECTION 


003750 


003750 : 


003750 012746 000001 


003754 


003754 010600 


003756 
003756 


MSTSTLAB 
.MCALL MSTLABEL MSINCR 


kK 9 
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«NLIST 


"IF DIF B,<#RWRDF2> 


“ERROR ;1LL. ARG. ‘#RWRDF2’’ ONLY ‘BY’ IS ALLOWED. 


-EN 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


-IF NB i 
a 
ny MSGNINS 
MSGNINS <MOV #1,-(SP)> 
-IF LT SVCINS 
MOV #1,-(SP) 
»MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 


#1,-(SP) 


eNLIST 


-IF DIF B,<#1> 
ILL. ARG. *#1°' ONLY ‘'B’' IS ALLOWED. 


M$GNINS <CLR = =(SP)> 
M$GNINS <BISB- ,(SP)> 


-ENDC 
ENDC 
M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV ’ 
-MEXIT 
-ENDC 
IF EQ SVCINS 
MOV SP,RO 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 
eNLIST 


- ENDC 
M$SVC C$PNTB 
ta MS$GNINS ,M$TSTLAB 





MOV 


#1,-(SP) 


SP,RO 


SEQ 0114 
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003756 


003756 


003760 


003760 


UDA D 
GLOBAL SUBROUTINES S 


I 
ECTION 


104414 


062706 000004 
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-IIF LT TSTSTMAC, .MEXIT 
RADIX 10 


M$TLABEL \TSTESTNUN, \TSTSTSEQ 
RADIX 
MSINCR TSTSTSEQ 
MSGNINS <TRAP C$PNTB> 
.IF LT SVCINS 
TRAP C$PNTB 
-MEXIT 
-ENDC 
.IF €Q SVCINS 

TRAP C$PNTB 
-MEXIT 
-ENDC 
-IF GT SVCINS 

-NLIST 

ENDC 
. IRP N,<\TSARGCNT *2+2> 
a <ADD #N,SP> 


-EN 

M$GNINS <ADD #4 ,SP> 

-IF LT SVCINS 

ADD #4 ,SP 

-EN 

-IF EQ SVCINS 
ADD 

-MEXIT 

-ENDC 

-IF GT SVCINS 

-LIST 


#4 ,SP 


«NLIST 


é <> 
eer C$PNTB,ARWRDF 2, <> 

“ <> 

MSPRINT C$PNTB,ARWRDF 2,<>,<> 

IF <> 

erg CS$PNTB ,ARWRDF 2,<>,<>,<> 
oat <> 

MSPRINT C$PNTB,ARWRDF 2,<>,<>,<>,<> 


<> 
C$PNTB,ARWRDF 2,<>,<>,<>, <>, <> 






TRAP C$PNTB 





ADD 


SEQ 0115 












M9 
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° <> 
yey C$PNTB,ARWRDF 2,<>,<>,<>,<>,<>,<> 


<> 
MSPRINT CSPNTB,ARWRDF 2,<>,<>,<>,<>,<>,<>,<> 


EN 
M$PRINT —« 26>, 6,69, 69, 0,69, 2,0 


8 003764 MSG 
-MCALL MS$POP ,MSGNTAG,MSSVC ,MSENDERR 
003764 MSPOP  TS$NS, TSNESTLEV, TSTEMP 
-MCALL MS$GETS ,MSDECR 
LIF LT TS$NESTLEV 
-ERROR TS$NESTLEV ; MACRO TSNS UNDERFLOW 


E 
003764 MSGETS TSNS,\TSNESTLEV, TSTEMP 
000011 TSTEMP=T$NS1 
003764 MSDECR TSNESTLEV 
000000 pir bg beth? HS a 


I 
003764 : MS$GNTAG b, Teese 
003764 M$GEN_ _L,\T$$MSG,SVCTAG 
VCTAG 
003764 L10003 


L10003: 


-NLIST 
010000 S$LSYM=T$LSYM 
003764 M$SVC C$MSG 
-MCALL MS$GNINS ,MSTSTLAB 
003764 TSTLAB 


L 
-MCALL_ M$TLABEL .M$INCR 
ya TSTSTMAC, »MEXIT 
MSTLABEL | \TSTESTNUN, \T$TSTSEQ 


RADIX 
MSINCR TS$TSTSEQ ; 
003764 MSGNINS <TRAP (C$MSG> Het Pet ee ee 
SVCINS 

-MEXIT 

-ENDC 

-IF EQ SVCINS 
104423 TRAP C$MSG 
-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 


003764 


TRAP C$MSG 
»NLIST 
- ENDC 


N 9 
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GLOBAL SUBROUTINES SECTION 


000041 — 
es ENDMSG, TSTEMP 


9 
10 003766 BGNMSG RWRDM2 
-MCALL__M$PUSH,MSINCR ,MSGNGBL 
000040 I $MSG=F SBGN 
003766 MSPUSH TS$NS,TSNESTLEV,FSMSG 
-MCALL MSINCR,MSSETS 
003766 MSINCR _TSNESTLEV 
000001 TSNESTLEV=TSNESTLEV+1 
003766 M$SETS TSNS,\I$NESTLEV,FSMSG 
000011 TSNS1=F $MSG 
010004 T$SMSG=TS$TAGNUM 
603766 MSINCR TSTAGNUM 
010005 : TSTAGNUM=T$TAGNUM+ 1 
003766 MSGNGBL RWRDM2 
-MCALL MS$GEN 
If ~ tpi 


M$GEN RWRDM2,:,SVCGBL, 


003766 M$GEN RWRDM2,:,SVCGBL,< > 
w SVCGBL 
003766 RWRDM2: : 


RWRDM2:: 
-NLIST 


11 003766 PRINTB #RWRDF 1, #FNAME 
-MCALL MS$PRINT 
IF ARWRDF 1 
-ERROR ;MISSING FORMAT 


-IF B <#FNAME> 
MSPRINT C$PNTB,ARWRDF 1 


1 © <> 
003766 MSPRINT C$PNTB,ARWRDF 1,<#F NAME> 
-MCALL MS$COUNT,MSPUT .MSGNINS ,M$SVC 
000001 TSARGCNT=1 
003766. oe TSARGCNT , <AFNAME> , <>, <>, <>, <>, <>, <>, <> 
x <> 


I 
M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 
ENDC 


¢ "IF NB <#FNAME> 
000002 TSARGCNT=TSARGCNT +1 


-EN 
. IRP N,<\TSARGCNT> 
M$PUT #N,ARWRDF1,<#FNAME>,<>,<>,<>,<>,<>,<>,<> 





acme 


eee 


CZUDEAO PDP 


GLOBAL 
% 


SUBROUTINES SECTION 


003766 


003766 


003766 


903766 


003766 


003766 


003772 


003772 


003772 


072746 004422 


012746 004172 


81 
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#2 ,ARWRDF 1, <AFNAME> <>, <>, <>, <>, <>, <>, <> 
M$PUT1 


<ARWRDF 1> 
MSPUT  <#RWRDF1>,<#FNAME>,<>,<>,<>,<>,<>,<>,<> 
MS$PUT1 


.I1F NB <#FNAME> 
T <#F NAME>, <>, <>, <>, <>, <>, <>, <9, <> 
M$PUT1 


IF NB <> 
<>, 69,8, ,O,0O,O,0> 


MSGNINS <MOV MFNAME ,=(SP)> 

-IF LT SVCINS 

MOV MF NAME , = (SP) 

-MEXIT 

- ENDC 

-IF EQ SVCINS 
MOV 

oMEXIT 

«ENDC 

IF GT SVCINS 

«LIST 


#FNAME ,-(SP) 


«NLIST 


-IF DIF B,<AFNAME> 
zILL. ARG. ‘‘FNAME'’ ONLY 'B’' IS ALLOWED. 


M$GNINS <CLR 
MSGNINS <BISB 


-(SP)> 
~(SP)> 


<ARWRDF 1> 


-IF B 
MSGNINS <MOV AMRWRDF 1, -(SP)> 
-IF LT SVCINS 


MOV MRWRDF 1,-(SP) 


-MEXIT 
« ENDC 
-IF EQ SVCINS 
MOV #RWRDF 1 ,=(SP) 
-MEXIT 


-ENDC 
-IF GT SVCINS 
-LIST 








SEQ 0118 


MOV AFNAME ,~(SP) 


MOV #RWRDF 1 ,=(SP) 


CZUDEAO PDP=11 UDA D 
NES S 


SK 
GLOBAL SUBROUTI CT 


I 
E 


003776 


003776 


003776 012746 000002 


904002 


004002 010600 
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ate 
-IF DIF 8,<ARWRDF 1> 
-ERROR ZILL. ARG. ‘WRWRDF1"' ONLY ‘B'' IS ALLOWED. 


« ENDC 
M$GNINS <CLR =(SP)> 
— <BISB-,(SP)> 


~ENDC 
~ENDC 
"IF NB <#2> 
M$PUT1 #2 
oR Y MSGNINS 
MSGNINS <MOV #2,-(SP)> 
-IF LT SVCINS 
MOV #2,-(SP) 
-MEXIT 
~ENDC 
~IF EQ SVCINS 
MOV 
MEXKIT 


«ENDC 
IF GT SVCINS 
SLIST 


#2,-(SP) 


«NLIST 
-ENDC 
FF 


1 

IF DIF B,<#2> 

ERROR ;ILL. ARG. *#2°’ ONLY ‘B'' IS ALLOWED. 
»MEXIT 


-ENDC 

M$GNINS <CLR -(SP)> 

M$GNINS <BISB-— ,(SP)> 
- ENDC 


« ENDC 
M$GNINS <MOV SP,RO> 
-IF LT SVCINS 
mov 0 


- 


»MEXIT 
-ENDC 
-IF EQ SVCINS 

MOV SP,RO 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 


-ENDC 

M$SVC C$PNTB 

-MCALL MS$GNINS,MS$TSTLAB 
MSTSTLAB 


-MCALL_ MS$TLABEL ,MSINCR 
TIF LT TSTSTMAC, .MEXIT 


MOV 


MOV 


#2,-(SP) 


SP,RO 


SEQ 0119 


[a 


CZUDEAO PDP=11 UDA DISK 
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| 
| 
| 
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004006 


004006 


004006 





S SECTION 


104616 


062706 000006 
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«RADIX 10 
MSTLABEL \TSTESTNUN, \TSTSTSEQ 


«RADIX 8 

MSINCR TSTSTSEQ 
MSGNINS <TRAP (CS$PNTB> 
-IF LT SVCINS 

TRAP CS$PNTB 


-MEXIT 
«ENDC 
-IF EQ SVCINS 

TRAP C$PNTB 
-MEXIT 
«ENDC 
-IF GT SVCINS 
. 1ST ; 

«NLIST 


«ENDC 
. IRP N,<\TSARGCNT *2+2> 
MSGNINS <ADD WN, SP> 


HSGNINS <ADD #6,SP> 
-IF LT SVCINS 
ADD #6,SP 
»MEXIT 

~ENDC 

IF €Q SVCINS 

ADD 

oMEXIT 

« ENDC 

-IF GT SVCINS 
«LIST 


#6,SP 


«NLIST 


‘ B <> 

MSPRINT C$PNTB,ARWRDF1,<#F NAME>, <> 

B <> 

MS$PRINT CSPNTB,ARWRDF1,<#FNAME>,<>,<> 

a <> 

MSPRINT C$PNTB,4RWRDF1,<#FNAME>,<>,<>,<> 

<> 

MSPRINT C$PNTB,4RWRDF 1,<#FNAME>,<>,<>,<>,<> 


-1F @ <> 
MSPRINT C$PNTB,A4RWRDF1,<#FNAME>,<>,<>,<>,<>,<> 


TRAP 


ADD 


C$PNTB 


#6,SP 


SEQ 0120 


oO 
™~ 
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UDEAO PDP=11 UDA D 
SECTION 


] 
OBAL SUBROUTINES SE 


@ 


| 
| 
1¢ 
| 


_ 


B <> 
Maeatt CSPNTB,ARWRDF 1, <#F NAME>, <>, <>, <>, <>, <>, <> 
C 


MSPRINT CSPNTB,ARWRDF 1,<#FNAME>,<>,<>,<>,<>,<>,<>,<> 
12 006012 PRINTB #RWRDF 3,RDLOW,RDHI GH 
ey papel! 


WRDF 3 
ERROR ;MISSING FORMAT 


‘ <RDLOW> 
MSPRINT CSPNTS,ARWRDF 3 


-I1F B — <RDHIGH> 
MSPRINT CSPNTB,ARWRDF 3,<RDLOW> 


<> 
MSPRINT CSPNTB,ARWRDF 3 ,<RDLOW>,<RDHI GH> 
-MCALL * COUNT ,MSPUT ,MSGNINS ,M$SVC 


MSCOUNT Tancent, <RDLOW>,<RDHIGH>, <>, <>,<>,<>,<>,<> 
.I1F NB <RDHIGH> 
MSCOUNT T TSARGCNT ,, <RDHIGH>, <>, <>,<>,<>,<>,<>,<> 
MSCOUNT TSARGCNT, <>, <>, >, 0, O,0O,0O,0 
C 


.1F NB <RDHIGH> 
d ree 


C 
IF NB <RDLOW> 
TSARGCNT= TSARGCNT +1 


.IRP N,<\TSARGCNT> 
MS$PUT #N,ARWRDF 3,<RDLOW>,<RDHIGH>,<>,<>,<>,<>,<>,<> 


M$PUT #3,ARWRDF3,<RDLOW>,<RDHIGH>,<>,<>,<>,<>,<>,<> 
M$PUT1 


.IF NB <ARWRDF 3> 
M$PUT <ARWRDF3>,<RDLOW>,<RDHIGH>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
.1F NB <RDLOW> 
M$PUT <RDLOW>, <RDHIGH>,<>,<>,<>,<>,<>,<>,<> 
M$PUT1 


-IF NB <RDHIGH> 
M$PUT <RDHIGH>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 


-IF NB <> 
M$PUT <>, <>, <>, <>, <>, <>, <>,<9,0 
-ENDC 


-1F NB <RDHIGH> 





foo en 


j 
| 


| CZUDEAO PDP=11 UD 
| GLOBAL SUBROUTINE 


| 004012 
| 
! 
| 


004012 


004016 


006016 


| 
004016 


004022 


004022 





“> 
“no 


0137466 


073746 


TION 


002214 


02212 
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MSGNINS <MOV RDHIGH,=(SP)> 
-IF LT SVCINS 
MOV RDHIGH,=(SP) 


«MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV RDHIGH,=(SP) 
-MEXIT 


«ENDC 
IF GT SVCINS 
LIST 


«NLIST 


~I1F DIF B,<RDHI GH> 
-ERROR ;ILL. ARG. *RDHIGH’’ ONLY ‘B’’ JS ALLOWED. 


-ENDC 

M$GNINS <CLR -(SP)> 
MSGNINS <8]SB ~(SP)> 
~ENDC 

~ENDC 

“ENDC 

.IF NB <RDLOW> 

M$PUT1 RDLOW 

-MCALL M$GNINS 


I 
MSGNINS <MOV RDLOW,=(SP)> 


MOV RDLOW,=(SP) 
»MEXIT 


-ENDC 

-I1F €Q SVCINS 
MOV 

oMEXIT 


»ENDC 
-IF GT SVCINS 


RDLOW, = (SP) 


«NLIST 


-IF DIF B,<RDLOW> 
-ERROR ;ILL. ARG. ‘RDLOW'’ ONLY 'B'' IS ALLOWED. 


M$GNINS <CLR -(SP)> 
M$GNINS <BISB- ,(SP)> 


.IF NB <ARWRDF 3> 
M$PUT1 #RWRDF 3 
-MCALL M$GNINS 


IF B 
M$GNINS <MOV #RWRDF 3,-(SP)> 


SEQ 0122 


RDHIGH,=(SP) 


RDLOW,=(SP) 


| CZUDEAO PDP=11 UDA DISK 
| GLOBAL SUBROUTINES SECTION 


004022 012746 0046316 


006026 


004026 


004026 072746 000003 


004032 


004032 010600 
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-IF LT SVCINS 


MOV #RWRDF 3,=( SP) 
-MEXIT 

~ENDC 

IF EQ SVCINS 

MOV #RWRDF 3,=(SP) 

«MEXIT 

~ENDC 

-IF GT SVCINS 

oi 5 

»NLIST 

ENDC 

IF F 


“IF DIF 8,<A#RWRDF 3> 
"ERROR ILL. ARG. ‘#RWRDF3'’ ONLY 'R’' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
MSGNINS <BISB ,(SP)> 


~ yg 
-MCALL MSGNINS 


3. 
om 
¢ 
— 
R 


M$GNINS <MOV #3,-(SP)> 

IF LT SVCINS 

MOV #3,-(SP) 

oMEXIT 

« ENDC 

-1F EQ SVCINS 
MOV 

-MEXIT 

« ENDC 

IF GT SVCINS 


#3,-(SP) 


eNLIST 
- ENDC 


o AFF 
IF DIF B,<#3> 
iT ILL. ARG. *#3"' ONLY ‘BY IS ALLOWED. 


- ENDC 
M$GNINS <CLR -(SP)> 
— <BISB-,(SP)> 


- ENDC 

MSGNINS <MOV SP ,RO> 

-IF LT SVCINS 

MOV SP,R 

-MEXIT 

«ENDC 

-1F EQ SVCINS 
MOV SP,RO 


MOV 


MOV 


SEQ 0123 


A#RWRDF 3,=( SP) 


#3,-(SP) 
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MEXIT 
| ~ENDC 
IF GT SVCINS 
LIST 
| »NLIST 
c »ENDC 
004034 M$SVC CSPNTB 
| -MCALL MSGNINS,MSTSTLAB 


904034 M$7TSTLAB 
-MCALL MSTLABEL.MSINCR 
~1IF LT TSTSTMAC, .MEXIT 


~RADIX 10 
gt erage \TSTESTNUN, \TSTSTSEQ 
MSINCR TSTSTSEQ 


IF LT SVCINS 
TRAP CSPNTB 
IT 


| 
| 
206036 MSGNINS <TRAP ($PNTB> 
«ENDC 
IF EQ SVCINS 
TRAP 


004034 7046476 C$PNTB 
-MEXIT 
~ENDC 
IF GT SVCINS 
LIST 
TRAP C$PNTB 
eNLIST 
~ENDC 
.IRP N,<\TSARGCNT *242> 
MS$GNINS <ADD AN, SP> 
.ENDM 
004036 MSGNINS <ADD #10,SP> 
-IF LT SVCINS 
ADD #10,SP 
MEXIT 
-ENDC 
IF EQ SVCINS 
006036 062706 000010 ADD #10,SP 
-MEXIT 
-ENDC 
IF GT SVCINS 
oh £37 
ADD #10,SP 
eNLIST 


-ENDC 

-MEXIT 

-ENDC 

a7 @ &e 

ay C$PNTB, 4RWRDF 3, <RDLOW>, <RDHIGH>,<> 
-MEX 

-ENDC 


“IF B <> 
MSPRINT C$PNTB, #RWRDF 3, <RDLOW>, <RDHIGH>, <>, <> 
*ENDC 





po ee —Se ee ts 
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are. & 

MSPRINT C$PNTB,ARWRDF 3,<RDLOW>,<RDHIGH>,<>,<>,<> 
ato & 

MSPRINT CSPNTR,#RWRDF 3,<RDLOW>,<RDHIGH>,<>,<>,<>,<> 


| 
| . <> 

MSPRINT CSPNTB,ARWRDF 3,<RDLOW>,<RDHIGH>,<>,<>,<>,<>,<> 
. 


EN 
MSPRINT oe <RDLOW> , <RDHIGH> , <>, <>, <>, <>, <>, <> 
13 006042 ENDMSG 

-MCALL MSPOP ,MSGNTAG ,MSSVC ,MSENDERR 

004062 MSPOP T$NS, TSNESTLEV, TSTEMP 

.MCALL MSGETS,MSDECR 

LIF LT TSNESTLEV 

«ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 


094042 M$GETS hens \TSNESTLEV, TSTEMP 
600071 T$TEMP=TSNS1 
004042 MSDECR TSNESTLEV 
000000 TSNESTLEV=TSNESTLEV~1 
-IF EQ FSMSG-TSTEMP 
004042 MSGNTAG L, TS$$MSG 
MCALL MSG 


GEN 
004042 MSGEN  _L, \T$$MSG, SVCTAG 
-IF LE si CTAG 
004042 (10006: 
«MEX 


De 
LIST 
L10004: 


eNLIST 
0610000 SSLSYM=T$SLSYM 
004042 M$SVC C$MSG 
-MCALL MSGNINS, MSTSTLAB 
MSTSTLAB 


-MCALL_ MS$TLABEL,M$INCR 
-1IF LT TSTSTMAC, .MEXIT 
RADIX 10 
MSTLABEL , \TSTESTNUN, \TSTSTSEQ 


Ix 

MSINCR TSTSTSEQ 
004042 MSGNINS <TRAP ($MSG> 

-IF LT SVCINS 

TRAP C$MSG 

-MEXIT 

-ENDC 

IF EQ SVCINS 
004042 104423 TRAP C$MSG 
«MEXIT 


- ENDC 
-IF GT SVCINS 
LIST 





—D——— 
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14 
15 0046044 


TRAP ($MSG 
»NLIST 


-ENDC 
000041 isms¢= =F SEND 
he ENDMSG, TSTEMP 


BGNMSG RWRDM3 

-MCALL _MSPUSH,MSINCR,MS$GNGBL 
000040 i SMSG=F SBGN 
004044 M$PUSH TSNS,TSNESTLEV,FSMSG 
.MCALL MSINCR,MSSETS 
004044 MSINCR TSNESTLEV 
000001 TSNESTLEV=TSNESTLEV+1 
004044 MSSETS _TSNS,\TSNESTLEV,F $MSG 


-MCALL MSGEN 
F ~ ‘anges 


M$GEN RWRDM3,:,SVCGBL, 


MSGEN RWRDM3,:,SVCGBL,< > 
SVCGBL 


RWRDM3: : 
eNLIST 


PRINTB A#RWRDF 1, #F NAME 
-MCALL M$PRINT 
IF M#RWRDF 1 
-ERROR ;MISSING FORMAT 


-1F B  <AFNAME> 
MSPRINT CS$PNTB,ARWRDF 1 


I <> 

MSPRINT C$PNTB,ARWRDF 1,<4F NAME> 
MCALL M$COUNT , MS$PUT, MSGNINS, M$SVC 

TSARG GCNT=1 

M$COUNT FSARGONT , <AF NAME>, <>, <>, <>, <>, <>, <>, <> 


-I-F NB < 
MSCOUNT TSARGCNT. >, ,>,,2,0O,09,0 


.1F NB <#FNAME> 
TSARGCNT=T$ARGCNT +1 





| 
| 
| 
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GLOBAL SUBROUTINES ION 


004044 012746 004422 


004050 


004050 


004050 012746 004172 


MSGNINS <MOV 
.IF LT SVCINS 


MOV 
-MEXIT 


-ENDC 
-I1F EQ SVCINS 
MOV 


»MEXIT 


S <MOV 
-IF LT SVCINS 
MOV 


»MEXIT 


-ENDC 
-IF EQ SVCINS 
MOV 


-MEXIT 


N,<\TSARGCNT> 
#N ,ARWRDF 1, <AFNAME>,<>,<>,<>,<>,<>,<>,<> 


#2, ARWRDF 1,<A#FNAME>,<>,<>,<>,<>,<>,<>,<> 
MSPUT1 


<ARWRDF 1> 3 
<ARWRDF 1>, <AFNAME> ,<>,<>,<>,<>, <>, <>, <> 
M$PUT1 


<AF NAME > 
<AFNAME>, <>, <>, <>,<>,<>,<>,<>,<> 
MSPUT 1 


<> 
<><, ©, 2,©,69,2,0,0> 


MF NAME ,=(SP)> 
MF NAME , = (SP) 


MF NAME , = (SP) 


-ENDC 
IF GT SVCINS 
IST 


«NLIST 


B,<#F NAME> 
ILL. ARG. ‘#FNAME'’ ONLY ‘B’’ IS ALLOWED. 


<CLR -(SP)> 
<BISB ~(SP)> 


<ARWRDF 1> 

MRWRDF 1 

MSGNINS 

#RWRDF 1, -(SP)> 


MRWRDF 1, ~( SP) 


#RWRDF 1, - (SP) 


-ENDC 
IF GT SVCINS 





SEQ 0127 


AF NAME ,=( SP) 


CZUDEAO PDP=11 UDA DISK 
GLOBAL SUBROUTINES SECTION 


004054 


004054 


004054 012746 000002 
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-LIST 
MOV 
«NLIST 
-ENDC 
FF 
-IF DIF B,<#RWRDF1 
ERROR ; ILL. ARG. > wRURDE 1" ONLY 'B'' 7S ALLOWED. 


M$GNINS <CLR _=(SP)> 
MSGNINS <BISB  _,(SP)> 


.IF NB <#2> 
#2 

-MCALL MS$GNINS 

MSGNINS <MOV #2,-(SP)> 

-IF LT SVCINS 

MOV #2,-(SP) 

-MEXIT 

-ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

~ENDC 

-IF GT SVCINS 

AIST 


#2,-(SP) 


MOV 
«NLIST 
-ENDC 


- 1FF 

-IF DIF B,<#2> 

-ERROR ;ILL. ARG. '#2'' ONLY *B’' IS ALLOWED. 
-MEXIT 


-ENDC 
MSGNINS <CLR -(SP)> 
+ a <BISB-,(SP)> 


SP,RO> 


SP,RO 


“IF GT SVCINS 
ST 


MOV 
»NLIST 
- ENDC 
M$SVC C$PNTB 
-MCALL MS$GNINS,MS$TSTLAB 


SEQ 0728 


MRWRDF 1,=(SP) 


#2,-(SP) 


SP,RO 





CZUDEAO PDP=11 
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004062 


004062 


004062 


004064 


UDA D 
NES S 


I 
ECTION 


104414 


062706 000006 
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MSTSTLAB 

-MCALL_ MSTLABEL .MSINCR 

“IIF LT TS$TSTMAC, .MEXIT 

«RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 


- RADIX 

MS$INCR TSTSTSEQ 
M$GNINS <TRAP C$PNTB> 
-IF LT SVCINS 

TRAP C$PNTB 


-MEXIT 
-ENDC 
-IF EQ — 
C$PNTB 
-MEXIT 
~ENDC 
IF GT SVCINS 
-LIST 
eNLIST 
-ENDC 
. IRP N,<\TSARGCNT*2+2> 
MSGNIN NS <ADD AN, SP> 


MSGNINS <ADD #6, SP> 
3 LT yy: 


AD . 

oMEXIT 

- ENDC 

-1F EQ SVCINS 
ADD 

-MEXIT 

-ENDC 

-IF GT SVCINS 

«LIST 


#6,SP 


eNLIST 


<> 
MSPRINT CS$PNTB,ARWRDF 1, <#FNAME>, <> 

. <> 

MSPRINT CSPNTB,ARWRDF 1,<#FNAME>,<>,<> 
SES. 

MSPRINT C$PNTB,ARWRDF 1,<#FNAME>,<>,<>,<> 


m4 <> 
MSPRINT C$PNTB,ARWRDF1,<#FNAME>,<>,<>,<>,<> 


a 3 Pe 


TRAP C$PNTB 


ADD #6,SP 


SEQ 0129 
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UDA 
NES 10N 


DISK 
SE 
MSPRINT CSPNTB,ARWRDF1,<#FNAME>,<>,<>,<>,<>,<> 


F <> 
MSPRINT C$PNTB,ARWRDF1,<#FNAME>,<>,<>,<>,<>,<>,<> 


A 

MSPRINT CSPNTB,ARWRDF 1, <#FNAME>,<>,<>,<>,<>,<>,<>,<> 
PRINTB #RWRDFS 

“RY MSPRINT 


WRDF 4 
sMISSING FORMAT 


17 004070 


F 
MSPRINT CSPNTB, pro 
-MCALL M$SCOUN T ,M$PUT ,MSGNINS ,M$SVC 


a gt TSARGCNT, <>,<>,<>,<>,<>,<>,<>,<> 
TEND. TSARGCNT, <>, <>, <>, <>, <,<92,<,<> 


IF NB < 
iSaRgcnT= =TSARGCNT+1 


ND 
- IRP N,<\TSARGCNT> 
AN, ,ARWRDF4,<>,<>,<>,<>,<>,<>,<>,<> 


004070 


004070 


004070 FF FOES eA A 


<ARWRDF 4> 


004070 <ARWRDF 4>, <>, <>, <>, <>, <>, <>, <>, <> 
M$PUT 1 


IF NB <> 
<>, <>, <>, <>, <>, <>, <>, <>, <> 


-1F NB <ARWRDF4> 

ARWRDF 4 

7s MSGNINS 

094070 M$GNINS <MOV ARWRDF 4 ,=(SP)> 
-IF LT SVCINS 

MOV M#RWRDF 4 = (SP) 

-MEXIT 

-ENDC 

-IF EQ SVCINS 

MOV 

-MEXIT 

- ENDC 

IF GT SVCINS 
LIST 


004070 


004070 012746 004376 ARWRDF 4 ,- (SP) 


»NLIST 
-ENDC 


1FF 
-IF DIF 8,<#RWRDF4> 


«ERROR ;ILL. ARG. ‘#RWRDF4'* ONLY 'B'’ IS ALLOWED. 


MOV 


SEQ 0130 


A#RWRDF 4 ,-(SP) 
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«MEXIT 
NDC 


-EN 
M$GNINS <CLR =(SP)> 
wo ge <BISB-,(SP)> 


.IF NB <#1> 

004074 M$PUT1 #1 
eB MSGNINS 

004074 M$GNINS <MOV #1,-(SP)> 
sd LT SVCINS 


#1,-(SP) 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
004074 012746 000001 MOV #1,-(SP) 


-ENDC 
-IF GT SVCINS 
«LIST 
MOV #1,-(SP) 


-NLIST 
. ENDC 
FF 


ae | 
-IF DIF B,<#1> 
ioneg ILL. ARG. ‘#1'' ONLY 'B'' IS ALLOWED. 


x. C 
MS$GNINS <CLR =(SP)> 
or Se <BISB- =, (SP)> 


-ENDC 

004100 MS$GNINS <MOV SP ,,RO> 
-IF LT SVCINS 
MOV SP,RO 


-EN 
-IF EQ SVCINS 
094100 010600 MOV SP,RO 
-MEXIT 
« ENDC 
-IF GT SVCINS 
«LIST 
MOV SP,RO 
«NLIST 


NDC 
004102 issvc C$PNTB 
-MCALL MSCNINS, MS$TSTLAB 
MSTSTLAB 
-MCALL_ M$TLABEL,.MS$INCR 
-1IF LT T$TSTMAC. .MEXIT 
«RADIX 10 
MS$TLABEL \TSTESTNUN,\TSTSTSEQ 


«RADIX 
M$INCR TSTSTSEQ 


004102 





CZUDEAO PDP=11 UDA D 
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004102 


] 
ECTION 


004102 104414 


004104 


004104 062706 000004 
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MSGNINS <TRAP CS$PNTB> 
-IF LT SVCINS 
TRAP C$PNTB 
- ENDC 
IF EQ SVCINS 
TRAP C$PNTB 
-MEXIT 
ENDC 
LIF GT SVCINS 
«LIST 
«NLIST 


-ENDC 
- IRP N,<\TSARGCNT*2+2> 
MSGNINS <ADD #N,SP> 


M$GNINS <ADD #4 ,SP> 
-IF LT SVCINS 
ADD #4 SP 
MEXIT 
. ENDC 
-1F EQ SVCINS 
ADD #4,SP 
-MEXIT 
«ENDC 
IF GT SVCINS 
«NLIST 
<> 
CS$PNTB,ARWRDF 4S, <> 
<> 
CS$PNTB,ARWRDF4,<>,<> 


<> 
CSPNTB,,ARWRDF 4, <>,<>,<> 

<> 

CSPNTB,ARWRDF4,<>,<>,<>,<> 

<> 
CS$PNTB,ARWRDF4,<>,<>, <>, <>, <> 


<> 
C$PNTB, #RWRDF 4, <>, <>, <>, <>, <>, <> 


TRAP 


ADD 


C$PNTB 


#4 ,SP 


SEQ 0132 





CZUDEAO PDP=11 a : 


GLOBAL SUBROUTI 


18 004110 
004110 


004110 
004110 


004110 
004110 
004110 


004110 
004110 


004110 


004110 


NE 


I 
E 


000011 
000000 


010000 


104423 





SK 
CT 
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IF B <> 
ent CSPNTB,ARWRDF4, <>, <>, <>, <>,<>, <>, <> 
-MEX 


~ENDC 

MSPRINT — 1,69, ,69,0,2,0,0> 
NDM 

-“CALL MS$POP,MSGNTAG, feeve -MSENDERR 

MSPOP TS$NS, TS$NESTLE ,1$TEMP 

-MCALL MSGETS, M$. th 

“IF LT TSNESTLEV 


«ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 
«MEXIT 

. NDC 

vs tt bons fe »\TSNESTLEV, TSTEMP 


TEMP=T$NS 
MSDECR TSNESTLEV 
TSNESTLEV=TSNESTLEV~-1 
.IF EQ FSMSG-TSTEMP 
MSGNTAG L, a 


L MSGE 
M$GEN L ATSBMSG, -SVCTAG o 


L10005: 


«NLIST 
S$LSYM=T$LSYM 
M$SVC CS$MSG 
-MCALL MSGNINS ,MS$TSTLAB 
M$TSTLAB 
-MCALL_ M$TLABEL,.M$INCR 
-IIF LT TSTSTMAC, .MEXIT 


«RADIX 10 
MSTLABEL \TSTESTNUN, \TSTSTSEQ 
M$INCR TSTSTSEQ 
MSGNINS <TRAP C$MSG> 
-IF LT SVCINS 
TRAP C$MSG 
-ENDC 
-I1F EQ SVCINS 

TRAP C$MSG 
»MEXIT 
. ENDC 
«IF GT SVCINS 
° IST 

TRAP 
«NLIST 


- END 

ismsc= F SEND 

MSENDERR ENDMSG, T$TEMP 
- ENDC 


C$MSG 


SEQ 0133 
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CZUDEAO PDP=11 UDA DISK 
GLOBAL SUBROUTINES SECTION 
20004112 105 122 122 RWRDEM: .ASCIZ \ERROR READING “DIAGNOSTIC MACHINE’ PROGRAM FILE\ 
21004172 89045 ~—Ss«101 106 RWRDF1: :ASCIZ \RAFILE BEING READ IS ''%T%A'XN\ 
22 004230 045 101 104 RWRDF2: :ASCIZ \ZADID NOT FIND START AND NULL FRAMES WHERE EXPECTEDZN\ 
3.004316 = -045.———«i1077 104 RWRDF3: :ASCIZ \ZADATA NOT WITHIN EXPECTED BOUNDS %06%A - %O6%N\ 
24 004576 = 045101 10 RWRDF4: -ASCIZ \RACHECKSUM ERRORIN\ 
26 004422132125 104 FNAME: -ASCIZ \ZUDFAO.??2\ 
28 004436 000000 FDATA: WORD 0 
30 004440 ENDMOD 
.MCALL MSPOP,MSENDERR 
“IF EQ _F$8GN-1$MOD 
000041 i $mOD =F SEND 
“ERROR ; MISSING ‘‘3GNMOD"’ 
“ME XIT 
“ENDC 
004440 MSPOP TNS, TSNESTLEV. TSTEMP 
-MCALL MSGETS MSDECR 
TIF LT T$NESTLEV 
TERROR TSNESTLEV ; MACRO T$NS UNDERF LOW 
“ME XIT 
“ENDC 
004440 MSGETS _TSNS,\TSNESTLEV, TSTEMP 
000000 1$TEMP=T$NSO 
004440 MSDECR TSNESTLE 
17777? TSNESTLEV= SNE STLEV=1 
F $MOD~T$TEMP 
MSENDERR ENDMOD , TSTEMP 
-ENDC 


31 


-———-—— 


a 


' CZUDEAO PDP=11 UDA D 
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WWNAW EWN O OONAMEWH 


eee ek oe ed a st ns 


20 004460 
$3 004464 


004737 


012737 
012737 


012701 


010137 
010137 
004737 


013702 


004737 
001775 


000207 
000100 


*, 
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TION 


003470 


001000 
001100 


002216 
003500 


002204 
0 


001000 


002474 
003500 


002212 
002214 


002214 


;READDM 


‘READ A DM PROGRAM INTO FREE MEMORY 


; INPUTS: 
; OUTPUTS : 


Se Be Se Be 


READWD : 


RD.SZ 


DMTRLN = TRANSFER LENGTH OF MAIN DM PROGRAM IN BYTES 
DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 
DMOVRL = POINTER TO START OF DM OVERLAYS 

;ALL REGISTERS ARE USED AND PREVIOUS CONTENTS DESTROYED 


READDM: 
CALL 


CALL 
BEQ 


RETURN 


OPENLF 
#1000, RDLOW 


#1000+RD.SZ,RDHIGH 


ARD. pee R1 
ALOCM 
R1,DMPROG 
R1, DMOVRL 


R1,RD.AT 
RDREC 


DMPROG ,R2 
HDR.MN(R2) ,R1 
R1,DMTRLN 
R1,DMOVRL 
HDR. ae R1 
R1,RDHIGH 
#1000, RDHIGH 


R1 
ALOCM 


RDREC 
READWD 


100 


OPEN LOAD FILE 


Be Be Be Be Se Se Be Be Be & 


; SETUP BOUNDS FOR READ 


THIS SHOULD READ < 56 WORDS 


; INITIAL BUFFER er FOR READ 
FOR PROG 


START OF BUFFER TO HOLD OVERLAYS... 


-.+ VALUE UPDATED BELOW 
; BUFFER ADDRESS FOR RDREC ROUTINE 
; READ FIRST RECORD - THIS SHOULD... 


--- GET THE DUP HEADER INTO MEMORY 
«-+ FROM WHICH WE NEED THE MAIN AND 
- OVERLAY SIZE 


SIZE OF MAIN CODE 

SET INITIAL TRANSFER LENGTH 

SET STARTING ADDRESS OF OVERLAYS 
CALC TOTAL BUFFER SPACE NEEDED 
RESET THE UPPER LIMIT 

ADD BEGINNING PROGRAM OFFSET 

-- CONVERT TO WORD COUNT 


; READ NEXT —— RECORD 


:GO BACK FOR NEX 


INITIAL (FIRST) BUFFER SIZE TO READ 
THIS VALUE MUST BE LARGER THAN THE 

FIRST LDA FORMATE 
LINE LOADED DM FORMATTER FILE 


D RECORD IN THE DOWN 


SEQ 0135 
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:RESPDM 
: «ASSUMES AT LEAST 1 DM IS RUNNING 


:RESPOND TO DM REQUESTS. RETURN WHEN ALL DM PROGRAMS 
‘HAVE TERMINATED. 


66 013705 002202 RESPDM: MOV TSTTAB,RS GET CONTROLLER TABLE ADDRFSS 
72 016504 000010 RESPCT: MOV C.RING(RS) ,R4 :GET HOST COMM AREA ADDRES» 
576 032765 000002 000014 BIT ACT.RN,C.FLG(RS) + CHE CK IF PROGRAM — 
001435 BEQ RSPNXT 7 IF NOT, LOOK AT NEXT 

737 003170 CALL ISCAN 7SEE IF INTERRUPT WOULD HAVE COME 
0 000004 002074 MOV C.UNIT(RS) ,LSLUN STORE UNIT NUMBER UNDER TEST 
032765 000010 000014 BIT act. — C.FLG(RS) 7SEE IF INTERRUPT RECEIVED 
001051 BNE RSPi :1F SO, LOOK AT PACKET 
005365 000040 DEC C. CNTCRS) : COUNT ALL ‘NO SHOWS’ 
001020 BNE i$ ; HAVE WE TRIED °A LOT’? 
005365 DEC C.CNT#2(R5) 
001015 BNE 1$ 


012765 000020 000042 MOV @C. INIT,C.CNT#2(R5) ; RESET COUNTER 
PRINTB #NORESP,LSLUN ; LOG NO RESPONSE 


ge 
-1F B #ORESP 
-ERROR ;MISSING FORMAT 


VS SaNanRWV-OOUNNOMEeWwR 
SERRE ESE SEER 
BRESEERESS 
o 
: 


— 


-IF B  <LSLUN> 
MSPRINT C$PNTB,A#NORE SP 


004652 MSPRINT CSPNTB, ANOP™ SP, <L$LUN 
-MCALL M$COUNT, MSPUT, ASGNING. ° MSSVC 
000001 TSARGCNT=1 
004652 oe TSARGCNT, <LSLUN>. <>, <>, <>, <>, <>, <>, <> 
<> 
_oe TSARGCNT, <>, <>, <>, <>, <>, <>,<>,<> 


-IF NB <L$LUN 
000002 TSARGCNT=TSARGCNT #1 
-ENDC 


. IRP N,<\TSARGCNT> 
M$PUT #N,ANORESP,<LSLUN>,<>,<>,<>,<>,<>,<>,<> 


004652 MSPUT  #2,4NORESP,<LS$LUN>,<>,<>,<>,<>,<>,<>,<> 
M$PUT 1 


" <ANORE SP> 
004652 MS$PUT LOE PP ENN SD AO (AP SH GID OO 


-IF NB <LSLUN> 
004652 MS$PUT SPP RED OA LOR TP 


-lF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<,0,0> 


. NB <L$LUN> 
004652 M$PUT1 L$LUN 





| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 


} 
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on} MSGNINS 
| 004652 MSGNINS <MOV. ——L$LUN, =(SP)> 
IF LT SVCINS 
MOV LS$LUN,=(SP) 
-MEXIT 
ENDC 
.IF EQ SVCINS 
004652 013746 002074 MOV LSLUN,=(SP) 

} 


«NLIST 


: “IF DIF B.<LSLUN> 
“ERROR ; ILL. ARG. “LS$LUN'’ ONLY ‘B'' IS ALLOWED. 


o£ 
M$GNINS <CLR = (SP)> 
M$GNINS <BISB-— ,(SP)> 


-IF NB <ANORESP> 
004656 MSPUT1 #NORESP 
-MCALL M$GNINS 


IF 
004656 M$GNINS <MOV #NORE SP, = (SP) > 
#NORE SP ,=( SP) 
-EN 
-I1F EQ SVCINS 
004656 012746 006132 MOV #NORE SP, = (SP) 
»MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 


«NLIST 


“IF DIF B,<ANORESP> 
“ERROR :ILL. ARG. ‘#NORESP’* ONLY ‘B'' IS ALLOWED. 


-(SP)> 


LR 
ISB ~(SP)> 


<C 
M$GNINS <B 


"IF NB <#2> 
#2 
.MCALL M$GNINS 





MOV 


MOV 


SEQ 0137 


L$LUN,-(SP) 


#NORE SP ,=(SP) 








DISK 
GLOBAL SUBROUTINES SE 


ss 
|CZUBEAO PDP=11, UDA DISK, FO 


004662 


004662 012746 000002 


004666 


004666 010600 


004670 
094670 


004670 


004670 104414 
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-IF B 
M$GNINS ey #2,-(SP)> 


- ENDC 
IF EQ SVCINS 
MOV 
-MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


#2,-(SP) 


«NLIST 


o1FF 

-IF DIF B,<#2> 

ERROR ;ILL. ARG. ‘#2"' ONLY ‘B’’ IS ALLOWED. 
»MEXIT 

- ENDC 

MS$GNINS <CLR -(SP)> 

M$GNINS <BISB- ,(SP)> 

- ENDC 


-ENDC 
M$GNINS <MOV SP ,RO> 
IF LT SVCINS 


-EN 

-I1F EQ SVCINS 
MOV 

»MEXIT 

« ENDC 

-IF GT SVCINS 

«LIST 


SP ,RO 


«NLIST 


-ENDC 
M$SVC  C$PNTB 

-MCALL M$GNINS ,M$TSTLAB 
MSTSTLAB 

-MCALL_ MS$TLABEL,.M$INCR 
yt LT IETS TAN. »MEXIT 


. IX 0 

M$TLABEL \TSTESTNUN, \T$TSTSEQ 
»RADIX 8 

MSINCR  TSTSTSEQ 

MSGNINS <TRAP (C$PNTB> 


-IF LT SVCINS 
TRAP C$PNTB 


»MEXIT 
-ENDC 
-IF EQ SVCINS 
TRAP C$PNTB 
-MEXIT 


- ENDC 
-IF GT SVCINS 


MOV #2,-(SP) 


MOV sP,RO 


SEQ 0138 


oO 
™~ 


004672 


604672 062706 000006 


22 004676 
23 004676 


004676 


004676 
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eNLIST 
.ENDC 
. IRP N,<\TSARGCNT *2+2> 


MSGNINS eADD #N,SP> 

M$GNINS <ADD #6, SP> 
-IF LT SVCINS 

ADD #6,SP 
-MEXIT 

- ENDC 

-IF EQ SVCINS 

ADD 

-MEXIT 

-ENDC 

-IF GT SVCINS 
«LIST 


#6,SP 


«NLIST 


B <> 

MSPRINT C$PNTB,ANORESP,<LS$LUN>, <> 

® B <> 

MSPRINT C$PNTB,ANORESP,<LS$LUN>,<>,<> 


. B <> 
MS$PRINT C$PNTB,ANORESP,<L$LUN>,<>,<>,<> 


TRAP C$PNTB 


ADD #6,SP 


a7 @ ee 
MS$PRINT C$PNTB,ANORESP,<LS$LUN>,<>,<>,<>,<> 


_ B <> 
MSPRINT C$PNTB,ANORESP,<LS$LUN>, <>, <>,<>,<>,<> 


, B <> 
MSPRINT C$PNTB,ANORESP,<LSLUN>,<>,<>,<>,<>,<>,<> 


EN 
“aged C$PNTB,ANORESP, <L$LUN>, <>, <>, <>,<>,<>,<>,<> 


BREAK 
-MCALL M$SVC 


C$BRK 
-MCALL MSGNINS ,M$TSTLAB 
M$TSTLAB 
-MCALL_ M$TLABEL .M$INCR 
~TIF LT TSTSTAM. -MEXIT 
«RADIX 10 


ALLOW DRS TO SEE TERMINAL INPUT 


SEQ 0159 


rc eC 
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MSTLABEL \TSTESTNUN, \T$TSTSEQ 


E 
004676 MSGNINS <TRAP C$BRK> 
-IF LT SVCINS 
TRAP C$BRK 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
004676 104422 TRAP C$BRK 
-MEXIT 


-ENDC 
-IF GT SVCINS 
-LIST 


«NLIST 
a .ENDC 
25 004700 016505 000000 RSPNXT: MOV C.NEXT(R5),R5 
26 004704 001332 BNE RESPCT 
se 004706 000727 BR RESPDM 
$ ;REMOVE A CONTROLLER FROM TESTING 
31 004710 RSPDRP: an ae AREMMSG,LSLUN $ 
-MCALL M$PRIN 


-IF B #REMMS ’ 
-ERROR ;MISSING FORMAT 


‘ <LS$LUN> 
aentt C$PNTB,AREMMSG 


5 <> 

MSPRINT C$PNTB,AREMMSG,<L$LUN> 
MCALL _M$COUNT ,MSPUT ,MSGNINS ,MSSVC 

TSARGCNT=1 


-IF NB 
MSCOUNT TSARGCNT , <>, <>, <>, <>, <>,<>,<>,<> 


.IF NB <L$LUN 
TSARGCNT= LT SARGCNT#1 


IRP N,<\TSARGCNT> 


-MCALL M$PU 

-1F NB <#REMMSG> 

M$PUT  <M#REMMSG>,<LSLUN>,<>,<>,<>,<>,<>, 
-MCALL M$PUT Ae 
IF <L$LUN 

MSPUT eo ee 
-MCALL M$PUT1 

-IF NB <> 





SEQ 0140 


TRAP C$BRK 


sMOVE TO NEXT TABLE 
;LOOK AT NEXT CONTROLLER = IF ANY 
;LOOK AT FIRST CONTROLLER AGAIN 


LOG REMOVAL 


MSCOUNT TSARGCNT,<LS$LUN>,<>,<>,<>,<>,<>,<>,<> 
<> 


MS$PUT #N,A4REMMSG,<LS$LUN>,<>,<>,<>,<>,<>,<>,<> 
M$PUT = 92 aera est Sap Sie fa 


<>,> 





CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUTINES S 


I 
ECTION 


004710 


004710 


004710 013746 062074 


004714 


004714 


094714 012746 006202 
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. 
ee 


MS$PUT <>,<>,<>,<>,<>,<>,<>, <>, 
-ENDC 

-1F NB <LSLUN> 

MSPUT1 LS$LUN 

-MCALL MS$GNINS 


-IF B 

M$GNINS <MOV L$LUN,=(SP)> 
-IF LT SVCINS 

MOV L$LUN,=(SP) 


-MEXIT 

-ENDC 

-IF EQ SVCINS 

MOV L$LUN,-(SP) 

»MEXIT 

-ENDC 

-IF GT SVCINS 

MOV L$LUN,=-(SP) 
«NLIST 


VIF DIF B,<L$LUN> 
“ERROR :ILL. ARG. ‘LSLUN'’ ONLY 'B'' IS ALLOWED. 


M$GNINS <CLR  —_ =(SP)> 
M$GNINS <BISB- ,(SP)> 


“IF NB <AREMMSG> 
MSPUT1 #REMMSG 
.MCALL MS$GNINS 


. IF 

M$GNINS <MOV #REMMSG , ~ (SP) > 
-IF LT SVCINS 

MOV AMREMMSG ,~ (SP) 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV A#REMMSG,~(SP) 
»MEXIT 


- ENDC 
-IF GT SVCINS 
MOV #REMMSG .-(SP) 
eNLIST 


- ENDC 

1FF 

-IF DIF B,<#REMMSG> 

-ERROR ;ILL. ARG. ‘#REMMSG'' ONLY ‘B’' IS ALLOWED. 
»MEXIT 

- ENDC 

M$GNINS <CLR -(SP)> 

M$GNINS <BISB- ,(SP)> 


-ENDC 
-ENDC 


SEQ 0141 
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~ENDC 
-IF NB <#2> 
004720 M$PUT1 #2 
o 2 Y MSGNINS 
004720 MSGNINS <MOV #2,-(SP)> 
-IF LT SVCINS 
MOV #2,-(SP) 
-MEXIT 
~ENDC 
. -IF EQ SVCINS 
004720 012746 000002 east MOV #2,-(SP) 


-ENDC 
-IF GT SVCINS 
-LIST 
MOV #2,-(SP) 
«NLIST 
47h 


oi FF 

-IF DIF B,<#2> 

-ERROR ;ILL. ARG. '#2"' ONLY ‘B' IS ALLOWED. 
»MEXIT 


- ENDC 
MS$GNINS <CLR -(SP)> 
—— <BISB-,(SP)> 


- ENDC 

004724 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SP,RO 


-EN 
-IF EQ SVCINS 

004724 010600 MOV SP,RO 
-MEXIT 


LIF GT SVCINS 
“LIST 
MOV — SP, RO 
.NLIST 
s . ENDC 
004726 MSSVC  C$PNTB 
.MCALL _MSGNINS ,MSTSTLAB 
004726 MSTSTLAB 


L 
-MCALL_ M$TLABEL ,M$INCR 
-IIF LT TSTSTMAC, .MEXIT 
«RADIX 1 


0 
MSTLABEL \TSTESTNUN, \T$TSTSEQ 
«RADIX 8 
MSINCR T$TSTSEQ 
004726 M$GNINS <TRAP C$PNTB> 
-IF LT SVCINS 
TRAP C$PNTB 
-MEXIT 


-ENDC 
-I1F EQ SVCINS 








: N 11 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 37-7 SEQ 0143 
GLOBAL SUBROUTINES SECTION 


004726 104414 TRAP C$PNTB 
-MEXIT 


«ENDC 
-IF GT SVCINS 
-LIST 
TRAP C$PNTB 
»NLIST 
ENDC 


“IRP  —-N, <\ TS$ARGCNT*24+2> 
M$GNINS <ADD —#N, SP> 


. ENDM 
004730 M$GNINS <ADD #6,SP> 
-IF LT SVCINS 
ADD #6,SP 
»MEXIT 
. «ENDC 
-IF EQ SVCINS 
004730 062706 000006 ADD #6,SP 
»MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 
ADD #6,SP 
»NLIST 


2 <> 

MS$PRINT C$PNTB,AREMMSG,<LS$LUN>, <> 

. Ss < 

MSPRINT CS$PNTB,4REMMSG,<LS$LUN>, <>, <> 

. B <> 

MSPRINT C$PNTB,A4REMMSG,<LSLUN>,<>,<>,<> 

. B <> 

M$PRINT CSPNTB,#REMMSG, <L$LUN>, <>, <>, <>,<> 

. B <> 

MS$PRINT C$PNTB,AREMMSG,<L$LUN>,<>,<>,<>,<>,<> 


. B <> 
MSPRINT C$PNTB,4REMMSG,<LS$LUN>,<>,<>,<>,<>,<>,<> 


-EN 
M$PRINT C$PNTB,AREMMSG,<L$LUN>,<>,<>,<>,<>,<>,<>, <> 


33 004734 042765 000002 000014 BIC #CT.RN,C.FLG(R5) :CLEAR PROGRAM RUNNING 

34 004742 005337 002220 DEC URNING REDUCE RUNNING CONTROLLERS COUNT 
004746 001354 BNE RSPNXT 71F ANY STILL RUNNING, LOOK AT THEM 

36 004750 000207 RETURN ELSE RETURN TO TEST SECTION 


CZUDEAO PDP=11 
GLOBAL SUBROUT 


te et 


ZER 


MEWN =O DONAUEWN— 


005020 


005020 


005022 


005022 


104456 


000012 
000001 


000205 
000024 


81 
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000014 
000042 


000014 


CONTROLLER HAS RESPONDED, LOOK AT MESSAGE PACKET 


RSPIN: BIC #CT.MSG,C.FLG(RS) 
CLR C.CNT(R5) 


MOV AC. INIT,C.CNT#2(R5) 


CHECK FOR PROPER OPCODE IN END PACKET 


MOV #0P.END+0P. SND ,RO 
BIT #CT.REQ,C.FLG(RS) 
PMWR 


RSPMWR : 


ERRHRD 1 RSPPKE 
-MCALL MSERRINS 
MSERRINS 1, RSPPKE , , CSERHRD 
-MCALL MSGNINS ,MSWORD ,M$TSTLAB 
M$SVC  CSERHRD 
-MCALL MSGNINS. MSTSTLAB 
TSTLAB 


L 

-MCALL_ MSTLABEL .MSINCR 
LIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
MSTLABEL , \TSTESTNUN,\TSTSTSEQ 
MS$INCR_ TSTSTSEQ 
MSGNINS <TRAP 
+20 LT SVCI ae 

TRAP CSERHR 
-MEXIT 


« ENDC 

-IF EQ SVCINS 
TRAP 

-MEXIT 

-ENDC 

-IF GT SVCINS 

«LIST 


CSERHRD> 
CSERHRD 


«NLIST 
« ENDC 
«RADIX 10 
-IF NB 1 
T 43 — 1 
- ERROR MISSING ERROR-NR 


M$WORD \TSERRNUM 
—— MSGNINS 


A N,<1> 

M$GNINS <.WORD N> 
-ENDM 

MSGNINS <.WORD 1> 
-IF LT SVCINS 

. WORD 

“MEXIT 

~ENDC 





: CLEAR Me atEn INTERRUPT RECEIVED 
; RESET C 


GET SEND DATA END PACKET OPCODE 
LOOK IF MAINTENANCE READ OR WRITE SENT 


CHANGE TO RECEIVE END PACKET OPCODE 
[COMPARE TO OPCODE IN END PACKET 


REPORT OPCODE ERROR IN RESPONSE PACKET 


TRAP CSERHRD 


SEQ 0144 











005022 000001 


000010 
005024 


005024 


005024 006276 


005026 
005026 , 
005026 000000 


16 005030 
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-IF EQ SVCINS 
«WORD 1 

-MEXIT 

-IF GT SVCINS 

-LIST 


«NLIST 


MSGNINS <.WORD N> 

mre Cx <.WORD RSPPKE> 
-IF LT SVCINS 

“WORD RSPPKE 


“IF EQ SVCINS 
.WORD RSPPKE 


LIF GT SVCINS 


«NLIST 


0 
-MCALL M$GNINS 
- IRP N,<0> 
MSGNINS <.WORD N> 
- ENDM 
M$GNINS <.WORD 0> 
-IF LT SVCINS 
«WORD 0O 
»MEXIT 
-ENDC 
-IF EQ SVCINS 

. WORD 
»MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 

-ENDC 


-ENDC 
BR RSPDRP 


«WORD 1 


«WORD RSPPKE 


;DROP UNIT FROM TESTING 


SEQ 0145 


CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUTINES S 


3 005032 Eh 000037 000026 


1 005040 0014 
22 005042 


005042 
005042 
005042 


005042 


005042 104456 


000012 
000002 


005044 


005044 


005044 000002 


~~ 
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;LOOK AT STATUS CODE 
RSPSTS: BIT AST.MSK,HC.MPK+P.STS(R4) 
BEQ RSPREF 


° RRIN 
MSERRINS 2,RSPSTE,,CSERHRD 
-MCALL MS$GNINS ,MSWORD ,MSTSTLAB 
M$SVC  CSERHRD 

-MCALL MSGNINS ,MSTSTLAB 
MSTSTLAB 

-MCALL_ MSTLABEL,.MSINCR 

gt * TSTSTMAC, .MEXIT 


10 
MSTLABEL \TSTESTNUN, \TSTSTSEQ 


RADIX 
MSINCR TSTSTSEQ 
MSGNINS st ie CSERHRD> 


CSERHRD 
-MEYIT 
-ENDC 
-I1F EQ SVCINS 

TRAP CSERHRD 
-ENDC 
-I1F GT SVCINS 
-LIST 

«NLIST 


- ENDC 

-IF NB 2 

ee 

‘oe :MISSING ERROR-NR 


-EN 
M$WORD \TSERRNUM 
a _—— 


- IRP »<2> 
MSGNINS < “WORD N> 


HSGNINS <.WORD 2> 
IF LT SVCINS 
WORD 2 


-MEXIT 

- ENDC 

-IF EQ SVCINS 

-WORD 2 

-MEXIT 

-ENDC 

-IF GT SVCINS 

«NLIST 


- ENDC 


CHECK FOR STATUS CODE ST.SUC (ZERO) 
;REPORT ERROR STATUS CODE 


TRAP CSERHRD 


«WORD 2 


SEQ 0146 
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005046 


005046 


005046 


005050 


005050 


005050 


23 005052 
24 
25 
26 
27 005054 
28 005062 
29 005064 


005064 





00001C 


006514 


000000 


000716 


026564 000016 000014 
001405 


- IRP N,<RSPSTE> 
MS$GNINS <.WORD N> 
« ENDM 


MSGNINS <.WORD RSPSTE> 
IF LT SVCINS 
‘a RSPSTE 


“IF EQ SVCINS 
WORD 


RSPSTE 
-IF GT SVCINS 


-NLIST 


0 
‘ MSGNINS 

. IRP N,<0> 
MSGNINS <.WORD N> 


MS$GNINS <.WORD 0> 
~IF LT SvCIN NS 


-IF EQ SVCINS 
. WORD 


"IF GT SVCINS 
.NLIST 


BR RSPDRP 


:CHECK FOR EXPECTED REFERENCE NUMBER 


RSPREF : 
BEQ RSPPTW 
ERRHRD 3,RSPPRE 
-MCALL MSERRINS 
MSERRINS 3,R 
-MCALL 


CMP C.REF(R5) ,HC.MPK+P.CRF (R4) 


RSPPRE , , CSERHRD 
MSGNINS ,MSWORD ,M$TSTLAB 


. WORD 


. WORD 


;DROP UNIT FROM TESTING 


CHECK IF CORRECT REF NUMBER 


RSPSTE 


SEQ 0147 


| CZUDEAO PDP=11 UDA DISK 
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005064 
005064 


005064 


005064 


005066 


005066 


095066 


005070 


005070 





104456 


000012 
000003 


000003 


000010 
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M$SVC CSERHRD 

-MCALL MS$GNINS ,MS$TSTLAB 
MSTSTLAB 

-MCALL_ MSTLABEL .MSINCR 

gO TSTSTMAC, .MEXIT 


1 
MSTLABEL \TSTESTNUN, \TSTSTSEQ 
RADIX 8 


MSINCR TSTSTSEQ 
MSGNINS <TRAP C$ERHRD> 


XI 
- ENDC 
IF EQ SVCINS 

TRAP CSERHRD 
-MEXIT 
«ENDC 
-I1F GT SVCINS 
«NLIST 


.ENDC 
"RADIX 10 

“IF NB 3 

i SERRNUM= 5 

“ERROR ;MISSING ERROR=NR 
“ ENDC 

M$WORD \TSERRNUM 

-MCALL MSONINS 

MSGNINS <.WORD N> 


M$GNINS <.WORD 3> 
IF LT SVCINS 
. WOR 3 


eNLIST 


-MCALL M$GNINS 
. JRP N,<RSPPRE > 
MSGNINS <.WORD N> 


MSGNINS <.WORD RSPPRE> 
IF LT SVCINS 


TRAP 


. WORD 


CSERHRD 


SEQ 0148 


too ne ee ee ——— — 
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Yt RSPPRE 


- MEX 
~ENDC 
IF EQ SVCINS 
095070 006346 «WORD RSPPRE 
-MEXIT 
~ENDC 
IF GT SVCINS 
oLEot 
~ WORD RSPPRE 
eNLIST 
-1FF 
M$WORD 0 
-ENDC 
IF NB 
M$WORD 
*. IF F 
005072 MS$WORD 0 
< see ape 
> 
—— <.WORD N> 
005072 MSGNINS <.WORD 0> 
-IF LT SVCINS 
“WORD 0 
-MEXIT 
-ENDC 
-IF —€Q SVCINS 
005072 000000 -WORD 0 
-MEXIT 
~ENDC 
IF GT SVCINS 
AEST 
«WORD 0 
-NLIST 
- ENDC 
~ENDC 
3 005074 000705 BR RSPDRP ;DROP UNIT FROM TESTING 
32 sCHECK IF RESPONSE FROM MAINTENANCE READ OR WRITE 
34 005076 032765 000020 000014 RSPPTW: BIT ACT.REQ,C.FLG(RS) ; LAST CMD A READ? 
2 005104 001004 BNE RSPPT2 : YES = PROCESS IT 
t ;SEND MAINTENANCE READ COMMAND TO GET NEXT MESSAGE 
39 005106 004737 003110 CALL GE TDMR : ISSUE rey READ 
40 005112 000137 004700 JMP RSPNXT ;NOW WAIT FOR END PACKET 


SEQ 0149 


pC 


/CZUDEAO PDP=11 UDA DISK 
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H 1 
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MAINTENANCE READ END PACKET RECEIVED, LOOK AT REQUEST FROM DM PROGRAM 


| 1 
2 
3.005116 042765 000020 000014 RSPPT2: BIC #CT.REQ,C.FLG(RS) 
4 005124 016401 000214 MOV HC. BF2+2(R4), R1 
| 5 005130 022701 020103 C #'C OR 
6 005134 001423 BEQ CYLCMP 
7 005136 022701 020106 CMP WF OR 
8 005142 001510 BEQ GETFCT 
9 005144 022701 020104 CMP "Dd, 
10 005150 001533 BEQ FMTDNE 
11 005152 022701 020123 CMP #’'S UR 
12 005156 001432 BEQ KRANTZ 
13 005160 022701 020105 CMP #’'E RI 
14 005164 001002 BNE 1$ 
15 005166 000137 006062 JMP FMTERR 
17 005172 1$: ERRHRD 4,RSPPNE 
.MCALL MSERRINS 
005172 M$t RRINS 4. RSPPNE , ,CSERHRD 
-MCALL MSGNINS,MSWORD ,MS$TSTLAB 
005172 M$SVC_ C$ERHRD 
»MCALL NSGNINS. MSTSTLAB 
005172 M$TSTLAB 
-MCALL MSTLABEL,MSINCR 
“LIF LT TSTSTMAC. .MEXIT 
RADIX 
re \TSTESTNUN, \TSTSTSEQ 
MSINCR TS$TSTSEQ 
005172 MSGNINS <TRAP CSERHRD> 
IF LT SVCINS 


005172 104456 


000012 
000004 


005174 





-ENDC 

-IF EQ SVCINS 
TRAP 

-MEXIT 

«ENDO 

-IF GT SVCINS 

«LIST 


CSERHRD 
«NLIST 


1FF 
«ERROR ;MISSING ERROR=NR 
ENDC 


M$WORD \TSERRNUM 
=MCALL MSGNINS 


. IRP N,<4> 
MSGNINS <.WORD N> 
. ENDM 

M$GNINS <.WORD 4> 
-IF LT SVCINS 
«WORD 4 


; CLEAR REQUEST FLAG 
; GET MESSAGE CODE 

; CYLINDER COMPLETE? 
; FCT REQUEST? 

; FORMAT DONE? 

; ASKING FOR START? 


; ERROR IN FORMAT? 


NO = ERROR 
YES 


; UNKNOWN MESSAGE 


TRAP CSERHRD 


SEQ 0150 


[ 
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«ENDC 
-IF EQ SVCINS 
005174 000004 «WORD 4 


vIF GT SVCINS 


«WORD 4 
eNLIST 
-ENDC 
000010 -RADIX 8 
-1F NB RSPPNE 
005176 M$WORD RSPPNE 
-MCALL M$GNINS 
. IRP N,<RSPPNE > 
MSGNINS <.WORD N> 


END 
005176 iSGHINS <.WORD RSPPNE> 
.IF LT SVCINS 
* WORD RSPPNE 
. C 
“IF EQ SVCINS 
005176 006432 .WORD — RSPPNE 
LIF GT SVCINS 


«WORD RSPPNE 
«NLIST 


005200 M$WORD 0 
.MCALL MSGNINS 


.IRP N,<0> 
MSGNINS <.WORD N> 


~ENDM 
005200 M$GNINS <.WORD 0> 
-IF LT SVCINS 
-WORD 0 
-MEXIT 
-ENDC 
IF EQ SVCINS 
005200 000000 - WORD 


»MEXIT 
-ENDC 
-IF GT SVCINS 
«WORD 0 


eNLIST 
«ENDC 








om] 
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12 
Ba FORMATT MACRO V04.00 23=JUL=81 15:27:47 pate 39-2 SEQ 0152 


UDEAO PDP=11 UDA : ms 


1S 
OBAL SUBROUTINES SEC 


@ 


18 005202 000642 ; BR RSPDRP : DROP OFFENDING UDA 


20 005204 CYLCMP: PRINTX #RM.CMP,L$LUN,HC.BF2+6(R4) ; LOG MESSAGE 
-MCALL MS$PRINT 


| 

| 

| 

| 

‘ #RM, CMP 
"ERROR ;MISSING FORMAT 
“MEXIT 
“ENDC 
IF <L$LUN> 
MSPRINT C$PNTX,4RM, CMP 


. B  <HC.BF2+6(R4)> 
MSPRINT CSPNTX,ARM. CMP,<L$LUN> 


° <> 
005204 MSPRINT CSPNTX,ARM. CMP,<L$LUN>,<HC .BF 2+6(R4) > 
MCALL MS$COUNT,MSPUT .MSGNINS ,M$SVC 
000001 TSARGCNT=1 
005204 MSCOUNT TSARGCNT,<L$LUN>,<HC .BF2+6(R4)>,<>, <>, <>, <>, <9, © 
IF NB <HC.BF2+6(R4)> 
005204 MSCOUNT gates <HC .BF 2+6(R4)>, <>, <>, <>, <>, <>, <>, <> 


.IF NB < 
MSCOUNT TSARGCNT, <>, <>, <>, <>,<9,,0,<> 


- IF NB <HC.BF2+6(R4)> 
000002 TSARGCNT= =T$ARGCNT +1 


ENDC 
"IF NB <L$LUN> 
000003 TSARGCNT=TSARGCNT +1 


. IRP N,<\TSARGCNT> 
MSPUT #N,ARM.CMP,<LSLUN>,<HC .BF2+6(R4)>,<>,<>,<>,<>,<,0> 


-ENDM 

005204 M$PUT SS ESE AOE AF EROS OD 

U 

-IF NB <ARM.CMP> 

095204 MSPUT <A#RM.CMP>,<LS$LUN>,<HC.BF2+6(R4)>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
.IF NB <LSLUN> 

005204 MSPUT SOP OE AEG A APA ARP 


"IF NB <HC.BF2+6(R4)> 
005204 M$PUT SE SAY LP LEAP SED 
U 


"IF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


‘ NB <HC.BF2+6(R4)> 
005204 M$PUT1 HC.BF2+6(R4) 
-MCALL M$GNINS 


IF B 
005204 M$GNINS <MOV HC .BF2+6(R4) ,-(SP)> 
-IF LT SVCINS 





CZUDEAO PDP=11 UDA D 
NES S 


I 
GLOBAL SUBROUTI ECTION 


0052046 016446 000220 


005210 


005210 


005210 013746 002074 


005214 


005214 
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MOV HC .BF 2+6(R4>) ,=(SP) ° 

»MEXIT 

-ENDC 

-I1F EQ SVCINS 
MOV 

-MEXIT 

-IF GT SVCINS 

-LIST 


HC .BF 2+6(R4) ,=(SP) 


«NLIST 


“IF DIF B,<HC.BF2+6(R4)> 
TERROR ;ILL. ARG. 'HC.BF2+6(R4)"' ONLY ‘RB’ IS ALLOWED. 


-(SP)> 


EN 
MS$GNINS <CLR 
SB ~(SP)> 


CL 
MSGNINS <BI 


-MEX] 
- ENDC 
-IF EQ SVCINS 

MOV L$LUN,=(SP) 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 

- ENDC 
IFF 


“IF DIF B,<L$LUN> 
“ERROR ;ILL. ARG. ‘LSLUN' ONLY 'B'' IS ALLOWED. 


~EN 
MS$GNINS <CLR -(SP)> 
MSGNINS <BISB-~ ,(SP)> 


-ENDC 

-ENDC 

- ENDC 

» Sf <ARM, CMP> 
M$PUT1 #RM.CMP 


-MCALL MSGNINS 
MS$GNINS <MOV = #RM. CMP, = (SP) > 
MOV #RM. CMP, -(SP) 


MOV 


MOV 


SEQ 0153 


HC .BF 2+6(R4) ,=(SP) 


L$LUN,-(SP) 



















CZUDEAO PDP=11 UDA 
NES 


DI 
GLOBAL SUBROUTI SECTION 


005214 012746 006572 


005220 


005220 


005220 012746 000003 


005224 


005224 010600 


L_12 
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»MEXIT 

-ENDC 

-IF EQ SVCINS 

MOV 

-MEXIT 

- ENDC 

-IF GT SVCINS 
«LIST 


ARM. CMP ,=(SP) 


eNLIST 


“IF DIF B,<#RM. CMP> 
-ERROR ;ILL. ARG. '#RM.CMP'’ ONLY 'B'' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
M$GNINS <BISB ~(SP)> 


<#3> 
#3 
2} MSGNINS 
MS$GNINS <MOV #3,-(SP)> 
-IF LT SVCINS ; 
MOV #3,-(SP) 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
.ENDC 
-IF GT SVCINS 
LIST 


#3,-(SP) 


MOV 
«NLIST 
-ENDC 
FF 


. I . 

-IF DIF B,<#3> 

-ERROR ;ILL. ARG. ‘43°’ ONLY ‘B’’ IS ALLOWED. 
-MEXIT 


~ENDC 
MSGNINS <CLR -(SP)> 
M$GNINS <BISB ~(SP)> 
-ENDC 


-ENDC 

MSGNINS <MOV SP ,RO> 

-IF LT SVCINS 

MOV SP,RO 

EN 

-IF EQ SVCINS 
MOV 

»MEXIT 

-ENDC 


SP,RO 





SEQ 0154 


ARM. CMP ,-(SP) 


#3,-(SP) 


| M 12 
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I 
GLOBAL SUBROUTINES SECTION 
-IF GT SVCINS 
«LIST 


MOV SP ,RO 
«NLIST 
-ENDC 
005226 M$SVC  CSPNTX 
«MCALL MSCNINS., MSTSTLAB 
005226 MSTSTLAB 


'.MCALL_ MS$TLABEL .MSINCR 
-IIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
MSTLABEL | \TSTESTNUN, \TSTSTSEQ 


RADIX 
MSINCR_ TSTSTSEQ 
005226 MSGNINS <TRAP C$PNTX> 
-IF LT SVCINS 
TRAP CSPNTX 
-MEXIT 
-ENDC 
; -IF EQ SVCINS 
005226 104415 TRAP CSPNTX 
-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 
TRAP CSPNTX 
eNLIST 
«ENDC 


. IRP N,<\TSARGCNT*2+2> 
MSGNINS <ADD #N,SP> 


005230 M$GNINS <ADD #10,SP> 
-IF LT SVCINS 
ADD #10,SP 
-MEXIT 
- ENDC 
-IF EQ SVCINS 

005230 062706 000010 ADD #10,SP 
-MEXIT 


-ENDC 
-IF GT SVCINS 
LIST 
ADD #10,SP 
-NLIST 
-ENDC 
-MEXIT 
-ENDC 
Af @ <@ 
MSPRINT CS$PNTX,A4RM. CMP, <LS$LUN>, <HC.BF2+6(R4)>,<> 


»MEXIT 
-ENDC 


"IF B <> 
MSPRINT C$PNTX ARM. CMP, <L$LUN>, <HC .BF 2+6(R4)>,<>, <> 
ENDC 


‘1a es... 
MS$PRINT C$PNTX,ARM. CMP,<LSLUN>,<HC BF 2+6(R4)>,<>,<>,<> 










22 005240 000137 004700 
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CZUDEAO PDP=11 UDA DISK 
GLOBAL SUBROUTINES SECTION 
-MEXIT 
~ENDC 
-IF B <> 
eat CSPNTX,ARM. CMP, <L$LUN>, <HC .BF2+6(R4)>,<>,<>,<>,<> 
»MEX 
-ENDC 
IF B <> 
ent, CSPNTX,ARM. CMP, <L$LUN>, <HC .BF 2+6(R4)>,<>,<>,<>,<>,<> 
-ENDC 
M$PRINT CSPNTX,4RM. CMP, <L$LUN>, <HC .BF2+6(R4)>,<>,<>,<>,<>,<>, 
21 005234 004737 003110 CALL GETDMR : ISSUE ANOTHER MAINT. > READ TO THIS DM 


JMP RSPNXT 3; GET NEXT MESSAGE 





SEQ 0156 





CZUDEAO PDP=11 UDA DI 
GLOBAL SUBROUTINES SE 


Ss 
SPAR E 
FSRE 


NR SCVONAUEWN—"OOONO NEw 
8888888888888s 388s 


NONININININNY St A 
ANEW 
wv 
Ww 
vw 
LS 


SS 
3 


38 
+4 005430 
41 005434 


SK 
ct 
012700 
004737 
012700 
004737 


012724 
013700 


013724 


004737 
000137 


016401 
004737 
012700 
004737 
012700 
004737 
012724 
016524 


004737 
000137 


81 
* ates MACRO V04.00 23=JUL-81 15:27:47 PAGE to 


KRANTZ: 
000004 V #OP. SND RO 
002520 CALL  BLDCMD 
000160 MOV #HC BF 1,RO 
002614 CALL  CLRBUF 
020123 MOV W'S ,(R4)+ 
002204 MOV DMPROG, RO 
002210 ADD DMTRLN,RO 
MOV RO, (RG)+ 
CLR (R4)+ 
000020 MOV C.UNUM(RS), (R4)+ 
000022 MOV C.DFLG(R5) . (R4)+ 
30 MOV * SNUM(R5) . (RG) + 
000032 MOV €. SNUM+2(R5), (RG) + 
000034 MOV C. SNUM+4 (R5) . (R4) + 
000036 MOV C. SNUM+6(R5) . (RG) + 
002150 MOV DATE, (R4)+ 
152 MOV DATE+2, (R4)+ 
002154 MOV DATE+4, (RG) + 
902156 MOV DATE+6, (R4)+ 
012010 CALL  SNDCMD 
004700 JMP RSPNXT 
GETFCT: 
000216 MOV HC.BF2+4(R4),R1 
002656 CALL GETBLK 
4 MOV #OP. SND, RO 
002520 CALL = BLDCMD 
000160 #HC.BF1,RO 
002614 CALL  CLRBUF 
020106 MOV #''F .(RG)+ 
MOV R1, (Ri) + 
MOV R2. ( 
000024 MOV ¥ FOUE (RS) . (RG) + 
012010 CALL  SNDCMD 
004700 JMP RSPNXT 


SEQ 0157 


;BUILD A SEND DATTA COMMAND PACKET 


;POINT TO BUFFER IN PACKET 
AND CLEAR BUFER 


SET START MESSAGE FLAG 
START OF DM PROG IN HOST MEM 
COMPUTE oe By DM OVERLAYS 


PUT IN BUFF DM 
HI ORDER a's OF ADDRESS ARE ZEROS 
NUMBER TO TEST 


UNIT 
; STARTUP FLA 


AGS 
MOVE 4 WORD SERIAL NUMBER 


DATE 


GET DESIRED FCT BLOCK NUMBER 
READ DESIRED BLOCK 


; REQUEST A SEND DATA PACKET 


Bae Be Be Be Be Be Be & ~ 


; BUILD THE COMMAND 
; PLACE DATA IN BUFFER 1 
; CLEAR MESSAGE BUFFER 


. NUMBER 
; SET SUCCESS/FAILURE (O=SUCCESS,-1=...) 
; SET POINTER TO BUFFER 


; SEND THE MESSAGE 


CHECK NEXT CONTROLLER 
















GLOBAL SUBROUTINES SECTION 
1 005440 


005440 


000001 
005440 


000002 


005440 


005440 


005440 


005440 


005440 


005440 013746 002074 


C 13 
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FMTDNE: PRINTF #RM.DNE,LSLUN 
-MCALL MS$PRINT 


. #RM.DNE 
«ERROR ;MISSING FORMAT 


° B  <LSLUN> 
we CSPNTF ,4RM.DNE 


2 <> 
tre CSPNTF ,ARM. DNE ,<L$LUN> 


MSCOUNT ,MSPUT ,MSGNINS ,MSSVC 


CALL 
iSARGENT= 1 


; LOG UNIT SUCCESSFULLY COMPLETED 


MSCOUNT  pumeened <L$LUN>, <>, <>, <>, <>, <>, <>, <> 


IF 


-IF NB <L$LUN 
TSARGCNT= TSARGCNT+1 
ENDC 


"IRP—sON, <\ T$ARGCNT> 


NB < 
MSCOUNT TSARGCNT, <>, <>, <>,,69,<,0,0> 


MSPUT #N,ARM.DNE,<LSLUN>,<>,<>,<>,<>,<>,<>,<> 
M$PUT #2 ,ARM.DNE,<LSLUN>,<>,<>,<>,<>,<>,<>,<> 
M$PUT1 


<ARM. DNE> 


M$PUT  <#RM.DNE>,<LS$LUN>, <>, <>, <>, <>, <>, <2, 
MSPUT 1 


“IF NB <LSLUN> 


M$PUT <LS$LUN>,<>,<>,<>,<>,<>,<>,<>,<> 


-MCALL M$PUT1 


-IF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 
-ENDC 

IF <L$LUN> 


-IF B 
M$GNINS <Muv L$LUN,-(SP)> 
-IF LT SVCINS 


MOV LS$LUN,~-(SP) 
EXIT 


- ENDC 

-IF EQ SVCINS 
MOV 

»MEXIT 

-ENDC 

-IF GT SVCINS 

-LIST 


L$LUN,-(SP) 


«NLIST 
-ENDC 


~IFF 
-IF DIF B,<L$LUN> 


MOV 


-ERROR ;ILL. ARG. ‘LSLUN’’ ONLY *B’' IS ALLOWED. 
»MEXIT 





L$LUN,-(SP) 


SEQ 0158 


CZUDEAO PDP=11 oS : 


I 
GLOBAL SUBROUTINES SECTION 


005444 
005444 


005444 012746 006644 


005450 


005450 


005450 012746 000002 
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-ENDC 
M$GNINS <CLR =(SP)> 
M$GNINS <BISB-— ,(SP)> 


M$PUT1 #RM.DNE 
Se M$GNINS 


M$GNINS <MOV = ARM. DNE, = (SP)> 
.IF LT SVCINS 
MOV ARM. DNE,-(SP) 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV ARM. DNE ,- (SP) 
-MEXIT 


“IF GT SVCINS 
“LIST 
-NLIST 


-IF DIF B,<#RM.DNE> 
-ERROR ;ILL. ARG. ‘#RM.DNE** ONLY ‘B’' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
MSGNINS <BISB- ,(SP)> 


#2 
-MCALL M$GN INS 
M$GNINS <MOV #2, -(SP)> 


-IF LT SVCINS 
MOV #2,-(SP) 


»MEXIT 

-ENDC 

IF EQ SVCINS 

MOV #2,-(SP) 

»MEXIT 

-ENDC 

-IF GT SVCINS 

-LIST 

«NLIST 


-ENDC 


IFF 

-IF DIF B,<#2> 

-ERROR ;ILL. ARG. ‘#2°* ONLY ‘'B'' IS ALLOWED. 
MEXIT 


“ENDC 


MOV 


SEQ 0159 


#RM.DNE ,- (SP) 


#2,-(SP) 


E 13 
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CZUDEAO PDP=11 UDA D 
NES SECTION 


] 
GLOBAL SUBROUTI E 
M$GNINS <CLR =(SP)> 
M$GNINS <BISB-— ,(SP)> 

- ENDC 


- ENDC 
005454 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 


EN 
-IF EQ SVCINS 
005454 010600 MOV SP ,RO 
-MEXIT 
-ENDC 
-IF GT SVCINS 
MOV SP,RO 
«NLIST 


-ENDC 
005456 M$SVC = CSPNTF 

-MCALL MS$GNINS,MSTSTLAB 
005456 M$TSTLAB 
MCALL_ M$TLABEL ,MSINCR 
-1IF LT TSTSTMAC, .MEXIT 
x 


° 10 
we re \TSTESTNUN, \TSTSTSEQ 


EQ 
005456 MSGNINS <TRAP C$PNTF> 


- ENDC 
-I1F EQ SVCINS 

005456 104417 TRAP CSPNTF 
-MEXIT 


- ENDC 
-IF GT SVCINS 
»LIST 


TRAP CSPNTF 
eNLIST 
-ENDC 


. IRP N,<\TSARGCNT *2+2> 
MSGNI NS <ADD AN, SP> 


005460 MS$GNINS <ADD #6,SP> 
IF LT SVCINS 
ADD #6,SP 
-MEXIT 


- ENDC 
-IF EQ SVCINS 
005460 062706 000006 ADD #6,SP 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 
ADD #6,SP 
«NLIST 





(on nn en ee —— 
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| GLOBAL SUBROUTINES SECTION 
LENDC 
-MEXIT 
~ENDC 
| ia ee. 
MSPRINT CSPNTF ,ARM.DNE,<LS$LUN>, <> 
i -MEXIT 
-ENDC 
-IF B <> 
M$PRINT CSPNTF ,4ARM.DNE,<LS$LUN>,<>,<> 
-MEXIT 
we -S 
MSPRINT CS$PNTF ,ARM.DNE,<LS$LUN>,<>,<>,<> 
-MEXIT 
.ENDC 
e+ Se 
MSPRINT CSPNTF ,4RM.DNE,<LS$LUN>,<>,<>,<>,<> 
-MEXIT 
.ENDC 
a 2. oe 
"aeet te CSPNTF ,ARM.DNE ,<L$LUN>,<>,<>,<>,<>,<> 
.M x T 
«ENDC 
5 i ee... 
M$PRINT CSPNTF ,ARM.DNE,<LS$LUN>,<>,<>,<>,<>,<>,<> 
-MEXIT 
~ENDC 
5 MSPRINT CSPNTF ,ARM.DNE ,<LSLUN>,<>,<>,<>,<>,<>,<>,<> 
3 005464 sete 000216 ADD AHC .BF2+4,R4 ; POINT TO FIRST DATA WORD 
4 005470 011402 MOV (R4) ,R2 ; TOTAL # REVECTORED LBNS 
2 005472 166402 000002 SUB 2(R4) ,R2 ; - SECONDARY REVECS = PRIMARY REVECS 
7 005476 PRINTS #RM.D1IT,(R4)+ ; LBN MESSAGES 
-MCALL M$PRINT 
-IF B #RM.D1T 
-ERROR ;MISSING FORMAT 
-MEXIT 
~ENDC 


ar § <(R4) +> 
M$PRINT CS$PNTS,ARM.D1T 


i 1A ee. 
005476 MS$PRINT CSPNTS,ARM.DIT,<(R4) +> 
-MCALL MS$COUNT .MSPUT ,MSGNINS ,M$SVC 
000001 TSARGCNT=1 
005476 MSCOUNT TSARGCNT,<(R4)+4+>,<>, <>, <>, <>, <>, <9, <> 
F NB 


aa <> 
M$COUNT TSARGCNT , <>, <>,<>,<>,<>, <>,<2,0> 


-ENDC 

.IF NB <(R4)+> 

TSARGCNT=TSARGCNT +1 

"IRP  —N, <\ T$ARGCNT> 

eo! AN, ARM.D1T << (RG) ><>, 69, <>, >, 69, 
EN 





(a nO —— - ee 


| 
| 


| CZUDEAC PDP=11 UDA 4 


ISK 
GLOBAL SUBROUTINES SECT! 
005476 
005476 


005476 


005476 


905476 


005476 012446 


095500 


005500 


005500 012746 006723 
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ON 


MSPUT #2,4RM.D1T,<(RG)4#>,<>, <>, 69, 69,69, <9, <> 
M$PUT1 


.IF NB <A#RM.DIT> 
M$PUT Ae hea tees des | inateat talk 


-IF NB <(R4)+> 

MSPUT = < (RG) >, <>, <>, <9, 69, 69,69, O78 
-MCALL M$PUT1 

.IF NB <> 

M$PUT <>, <>, <>, <>, <>, <9, ©,<>,<> 


-IF NB <(R4)+> 

-IF B 

MS$GNINS <MOV (R4)+,=(SP)> 

-IF LT SVCINS 

MOV (R4)+,=(SP) 

»MEXIT 

« ENDC 

-I1F EQ SVCINS 

MOV 

«MEXIT 

- ENDC 

-IF GT SVCINS 
IST 


(R4)+,=(SP) 


MOV 
eNLIST 


-IF DIF B,<(R4)+> 
«ERROR ;ILL. ARG. *‘(R4)+°' ONLY ‘B’’ IS ALLOWED. 


N 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


FB 
M$GNINS <MOV #RM.D1T,-(SP)> 
-IF LT SVCINS 
MOV #RM.D1T,=-(SP) 
-MEXIT 


- ENDC 
IF EQ SVCINS 
MOV 
-MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


#RM.D1T,-(SP) 


«NLIST 


SEQ 0162 


(R4)+,=(SP) 


#RM.DIT,=(SP) 


- C+  - - -  -+- - 


CZUDEAO PDP=11 UDA D 
NES S 


1 
| GLOBAL SUBROUT I ECTION 


005504 


005594 


005504 012746 000002 


005510 


005510 010600 
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sit? 
-1F DIF B,<#RM.D1T> 
-ERROR ;ILL. ARG. ‘#RM.D1T"’ ONLY *B'' IS ALLOWED. 


-EN 
M$GNINS <CLR =(SP)> 
MSGNINS <BISB- ,(SP)> 


-ENDC 

. ENDC 

~ENDC 

IF <A#2> 
MS$PUT1 # 


2 

ey MS$GNINS 
MEGNINS <MOV #2,-(SP)> 
-IF LT SVCINS 
MOV #2,-(SP) 
-MEXIT 
« ENDC 
-IF EQ SVCINS 

MOV 
oMEXIT 


-ENDC 
~iF GT SVCINS 
«LIST 


#2,-(SP) 


»NLIST 


-1F DIF B,<#2> 
ERROR ;ILL. ARG. ‘#2°* ONLY 'B’' IS ALLOWED. 


M$GNINS <CLR —_ =(SP)> 
M$GNINS <BISB- ,(SP)> 


M$GNINS <MOV SP ,RO> 

-IF LT SVCINS 

MOV -RO 

-MEXIT 

-ENDC 

-1F EQ SVCINS 
MOV 

-MEXIT 

-ENDC 

-I1F GT SVCINS 

LIST 


SP,RO 


eNLIST 
-ENDC 
M$SVC = C$PNTS 
-MCALL MS$GNINS ,M$TSTLAB 
M$TSTLAB 
-MCALL_ MS$TLABEL .MSINCR 
-TIF LT TSTSTMAC, .MEXIT 
»RADIX 10 


#2,-(SP) 


SP,RO 


SEQ 0163 


por re 


CZUDEAO PDP=11 UDA DI 
GLOBAL SUBROUTINES SECTION 


005512 


005512 104416 


005514 


005514 062706 000006 


1 13 
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ae \TSTESTNUN, \TSTSTSEQ 


E 
MSGNINS <TRAP C$PNTS> 


TRAP C 
MEXIT 
-ENDC 
IF EQ SVCINS 

TRAP CSPNTS 
»MEXIT 
«ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 


- ENDC 

. IRP N,<\TSARGCNT *242> 

MSGNINS <ADD AN, SP> 
ENDM 


M$GNINS <ADD #6, SP> 
LIF LT SVCINS 


-MEXIT 
~ENDC 
-IF EQ SVCINS 
ADD 
-MEXIT 
.ENDC 
IF GT SVCINS 
LIST 


#6,SP 


»NLIST 


. <> 
MSPRINT CSPNTS,4RM.D1T,<(R4)+>,<> 
<> 
MSPRINT C$PNTS,4RM.D1T,<(R4)+>,<>,<> 
<> 
M$PRINT CSPNTS,ARM.D1T,<(R4)4>,<>,<>,<> 
<> 
MSPRINT CS$PNTS,ARM.D1T,<(R4)+>,<>,<>,<>,<> 


‘ <> 
MSPRINT CS$PNTS,4RM.D1T,<(R4) +>, <>, <>, <>, <>, <> 


-IFB <> 


TRAP 


ADD 


CSPNTS 


#6,SP 


SEQ 0164 


f——--- - -——- —— ee 


! 


| 
| CZUDEAO PDP=11 UDA : 


J 13 
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| GLOBAL SUBROUTINES SEC 


I 

ECTION 

MSPRINT CS$PNTS,ARM.D1T,<(R4)4>,<>, <>, <>, <>, <>, <> 
MEXIT 


-ENDC 
MSPRINT CSPNTS,ARM.D1T,<(R4)#>, <>, <>, <>, <>, <>, <9, <> 
8 005520 PRINTS #RM.DIP,R2 
. <* ¥ Saige 


RM.D1P 
-ERROR ;MISSING FORMAT 
1F 8 <R2> 
MSPRINT CS$PNTS,4RM.D1P 


a oS eS 
005520 MSPRINT CSPNTS,ARM.DIP,<R2> 
-MCALL MS$COUNT ,MSPUT ,M$GNINS ,M$SVC 
000001 TSARGCNT=1 
005520 M$COUNT TS$ARGCNT,<R2>,<>,<>,<>,<>,<>,<>,<> 
<> 


me 
“mat. TSARGCNT <>, <>, <>,<>,<>,<2,<>,<> 
N 


“IF NB <R2> 
000002 TSARGCNT=TSARGCNT*+1 


.IRP N,<\TSARGCNT> 
M$PUT #N,ARM.D1IP,<R2>,<>,<>,<>,<>,<>,<>,<> 


005520 M$PUT #2,4RM.D1P,<R2>,<>,<>,<>,<>,<>,<>,<> 
MSPUT1 


.IF NB <ARM.D1P> 
005520 M$PUT <A#RM.D1P>,<R2>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
.IF NB <R2> 
005520 M$PUT <R2>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
-IF NB <> 
M$SPUT OO 2,0, ,C, 2, 0,0 


.IF NB <R2> 
095520 M$PUT1 R2 
=MCALL M$GNINS 
005520 M$GNINS <MOV _—R2, =(SP)> 


»MEXIT 
-ENDC 
-1F EQ SVCINS 
005520 010246 MOV R2,~(SP) 
-MEXIT 
- ENDC 
-IF GT SVCINS 
LIST 


«NLIST 
-ENDC 





R2,-(SP) 


SEQ 0165 


SEEEUEEEEE nnn EERE EERE 


| CZUDEAO PDP=11 UDA 
GLOBAL SUBROUTINES 


005522 


005522 


K 13 
DISK fo ORMATT MACRO V04.00 23=-JUL=-81 15:27:47 PAGE 41-8 
“IF DIF B,<R2> 

sILL. ARG. ‘R2’’ ONLY 'B'’ IS ALLOWED. 


M$GNINS <CLR  _=(SP)> 
M$GNINS <BISB- ,(SP)> 


.MCALL MS$GNINS 


<ir 

MSCNINS <MOV #RM.DIP,=(SP)> 
-IF LT SVCINS 

MOV #RM.D1IP,=(SP) 

-MEXIT 


- ENDC 
-I1F EQ SVCINS 


005522 012746 007005 MOV #RM.DIP,-(SP) 


005526 


| 005526 


»MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 
«NLIST 


al 
-IF DIF B,<#RM.D1P> 
“ERROR iLL. ARG. ° eRM. D1IP** CNLY ‘'B’' IS ALLOWED. 


C 
MSGNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


-ENDC 

“IF NB <> 

-MCALL M$GNINS 

MSGNINS <MOV #2,-(SP)> 


-IF LT SVCINS 
MO #2,-(SP) 
-MEXIT 


-ENDC 
-IF EQ SVCINS 


| 005526 012746 000002 MOV #2,-(SP) 





»MEXIT 

- ENDC 

-IF GT SVCINS 
«LIST 


«NLIST 
- ENDC 
IFF 


MOV 


MOV 


SEQ 0166 


#RM.DIP,-(SP) 


#2,-(SP) 

































GLOBAL SUBROUTINES SECTION 


005532 


005532 010600 


005534 
005534 


005534 


005534 104416 


005536 


005536 062706 000006 


L_13 
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IF DIF B,<#2> 
aeRiT sILL. ARG. ‘42°’ ONLY ‘B’’ IS ALLOWED. 


-ENDC 
MSGNINS <CLR -(SP)> 
MSGNINS <BISB-~ ,(SP)> 
.~ENDC 


-ENDC 
M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 


MOV SP,RO 
-MEXIT 
-ENDC 
-IF EQ SVCINS 

MOV SP,RO 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 

eNLIST 


- ENDC 
M$SVC  C$PNTS 
-MCALL MSGNINS., MS$TSTLAB 
MSTSTLAB 


L 
-MCALL_ M$TLABEL .MSINCR 
-IIF LT TSTSTMAC, .MEXIT 


° x 10 
a te \TSTESTNUN, \TSTSTSEQ 
M$INCR TSTSTSEQ 


M$GNINS <TRAP OCSPNTS> 
-IF LT SVCINS 
TRAP C 


$PNTS 
-MEXIT 
- ENDC 
-IF EQ SVCINS 

TRAP C$PNTS 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 

»NLIST 


-ENDC 
- IRP N,<\TSARGCNT*2+2> 
MSGNINS <ADD #N, SP> 


- END 
HSGNINS <ADD #6, SP> 
-IF LT SVCINS 
ADD #6,SP 
-MEXIT 
- ENDC 
-IF EQ SVCINS 
ADD #6,SP 
poe iy 





MOV SP ,RO 


TRAP CSPNTS 


SEQ 0167 


reer ee eR ete ete ae eee aie eee ee iene 


M 13 
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I 
GLOBAL SUBROUTINES SECTION 


9 005542 


005542 


005542 


005542 


000001 


000002 





-IF GT SVCINS 
«LIST 
ADD 

«NLIST 


. <> 

M$PRINT CS$PNTS,4RM.D1IP,<R2>,<> 

. B <> 

MS$PRINT CS$PNTS,4RM.D1P,<R2>,<>,<> 

ar Oe 

MSPRINT CS$PNTS,4RM.D1IP,<R2>,<>,<>,<> 

-IF B <> 

MSPRINT C$PNTS,ARM.D1P,<R2>,<>,<>,<>,<> 

-IF B <> 

MSPRINT CS$PNTS,ARM.DIP,<R2>,<>,<>,<>,<>,<> 


I <> 
MSPRINT C$PNTS,ARM.DIP,<R2>,<>,<>,<>,<>,<>,O 


MS$PRINT CS$PNTS,ARM.D1IP,<R2>,<>,<>,<>,<>,<>,<>,<> 
PRINTS #RM.D1S,(R4)+ 

-MCALL MS$PRINT 

-IF B #RM.D1S 

-ERROR ;MISSING FORMAT 


"IF B  <(R4)+> 
M$PRINT C$PNTS,ARM.D1S 


A <> 
MSPRINT CS$PNTS,ARM.D1S,<(R4) +> 
-MCALL MS$COUNT .MSPUT ,MSGNINS ,MS$SVC 

TSARGCNT=1 

ayy TSARGCNT , <(R4) +>, <>, <>, <>, <>, <>, <>, <> 
IF <> 

oe TSARGCNT , <>, <>, <>, <>, <>, <>, <>, <> 

-ENDC 

IF NB <(R4)+> 

TSARGCNT=T$ARGCNT +1 

-ENDC 

. IRP N,<\TSARGCNT> 

oo #N,ARM.D1S,<(R4) +>, <>, <>, <>, <>, <>, <>, <> 
. N 

M$PUT #2,4RM.D1S,<(R4)+>,<>,<>,<>,<>,O,,<> 


#6,SP 
















CZUDEAO PDP=11 UDA . 


I 
GLOBAL SUBROUTINES SECTION 


005542 


005542 


005542 


005542 


005542 012446 


005544 


005544 


005544 012746 007067 
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-MCALL M$PUT1 

.IF NB <#RM.D1S> 

M$PUT <A#RM.D1S>,<(R4)+>,<>,<>,<>,<>,<>, <>, > 
MSPUT 1 

° <(R4) +> : 

M$PUT <(R4)+>,<>,<>,<>,<>,<>,<>,<>,<> 

-MCALL M$PUT1 
<> 

M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


<(R4) +> 

-IF B 

M$GNINS <MOV (R4)+,=(SP)> 

-IF LT SVCINS 

MOV (R4)+,-(SP) 

-ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

-ENDC 

-IF GT SVCINS 


(R4)+,=(SP) 


MOV (R4)+,=-(SP) 
«NLIST 


“IF DIF B,<(R4)+> 
"ERROR :ILL. ARG. ‘(R4)+'* ONLY ‘B'' IS ALLOWED. 


M$GNINS <CLR —_ =(SP)> 
MSGNINS <BISB _,(SP)> 


-IF NB <ARM.D1S> 
MS$PUT1 #RM.D1S 
ce MSGNINS 


B 
M$GNINS <MOV #RM.D1S,-(SP)> 
-IF LT SVCINS 
MOV #RM.D1S,-(SP) 
-MEXIT 
-ENDC 
IF EQ SVCINS 

MOV #RM.D1S,-(SP) 

-MEXIT , 


- ENDC 
IF GT SVCINS 
. IST 
MOV #RM.D1S.-(SP) 
eNLIST 


SEQ 0169 


8 14 
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SUBROUTINES SECTION 


005550 


005550 


005550 012746 000002 


005554 


005554 010600 


005556 
005556 





-IF DIF B,<#RM.D1S> 
-ERROR ;ILL. ARG. *#RM.D1S"’ ONLY "B’’ IS ALLOWED. 


M$GNINS <CLR -(SP)> 
ye <BISB-,(SP)> 


IF NB <#2> 
#2 
ay M$GNINS 
MSGNINS <MOV #2,-(SP)> 
-IF LT SVCINS 
MOV #2,-(SP) 
-MEXIT 
~ENDC 
.IF EQ SVCINS 
MOV 
-MEXIT 
.ENDC 
IF GT SVCINS 
ST 


#2,-(SP) 


MOV 
«NLIST 
-ENDC 
~IFF 
LIF DIF B,< 


<#2> 
-ERROR ;ILL. ARG. ‘W2'' ONLY ‘B'' IS ALLOWED. 
~MEXIT 


- ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 
-ENDC 


-ENDC 
M$GNINS <MOV SP,RO> 
-IF LT SVCINS 


-EN 

-IF EQ SVCINS 
MOV 

»MEXIT 

-ENDC 

-IF GT SVCINS 

-LIST 


SP,RO 


MOV 
«NLIST 
« ENDC 
M$SVC  CSPNTS 
-MCALL MS$GNINS ,MSTSTLAB 
MSTSTLAB 


-MCALL_ MS$TLABEL,.MS$INCR 
TIF LT TSTSTMAC, -MEXIT 


M$TLABEL \TSTESTNUN, \TSTSTSEQ 


#2,-(SP) 


SP RO 


SFQ 0170 


| CZUDEAO PDP=11 UDA D 
NES S 


GLOBAL SUBROUTI ION 


005556 


005556 104416 


005560 


005560 062706 000006 


«RADIX 8 
M$INCR TSTSTSEQ 
M$GNINS <TRAP 
-IF LT SVCINS 
TRAP CSPNTS 


«ENDC 

-IF EQ SVCINS 
TRAP 

-MEXIT 

- ENDC 

-IF GT SVCINS 

LIST 


~ENDC 
-IRP __N,<\TSARGCNT*2+#2> 


M$GNINS <ADD 

MS$GNINS <ADD 

-IF LT SVCINS 

ADD #6,SP 

-MEXIT 

- ENDC 

-IF EQ SVCINS 
ADD 

-MEXIT 

-ENDC 

-IF GT SVCINS 

«LIST 


-MEXIT 
—— 


Te £2 

MSPRINT C$PNTS,ARM.D1S,<(R4)+>,<> 

‘ Ss . = 

MSPRINT C$PNTS,ARM.D1S,<(R4)+>,<>,<> 

. So - = 

M$PRINT CS$PNTS,4RM.D1S,<(R4)+>,<>,<>,<> 

-IF B <> 

MSPRINT CSPNTS,ARM.D1S,<(R4)+4+>,<>,<>,<>,<> 

<> 

MSPRINT CSPNTS,A4RM.D1S,<(R4)+>,<>,<>,<>,<>,<> 


a" B <> 
MSPRINT CS$PNTS,4RM.D1S,<(R4) +>, <>, <>, <>, <>, <>, <> 


C$PNTS> 


CSPNTS 


«NLIST 


4#N,SP> 
#6,SP> 


#6,SP 


«NLIST 


C 14 
* FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 41-13 


“ee 


TRAP 


ADD 


CSPNTS 


#6,SP 


SEQ 0171 


poo 


C AO PDP=11 UDA DISK 


| CZUDE 
/GLOBAL SUBROUTINES SECT 


10 005564 


005564 


000001 
005564 


000002 


005564 
005564 


005564 


005564 


005564 


005564 012446" 
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ION 
-MEXIT 
.ENDC 
MSPRINT CSPNTS,ARM.D1S,<(R4)4+>,<>,<>,<>,<>,<9,<>, 
PRINTS ARM. D2b, (R4)+ s ACT * MESSAGES 
-MCALL MS$PRINT 
F B  #RM.D2D 
-ERROR ;MISSING FORMAT 
-MEXIT 
-ENDC 
FB <(R4) +> 
MSPRINT CSPNTS,“RM.D2D 
-MEXIT 
. ENDC 
FB <> 
are CSPNTS,ARM.D2D,<(R4) +> 
MCAL MSCOUNT. M$PUT, M$GNINS, M$SVC 
HSARGENT=1 


«uy TSARGCNT, <(R4) +>, <>, <>, <>, <>, <>, <>,<> 
. <> 

+ ges TSARGCNT , <>, <>, <>, <>, <>, <>, <>, <> 

"TF NB <(R4)+> 


gf > capes 


N,<\TSARGCNT> 
4#N,ARM.D2D,<(R4)+>,<>, <>, <>, <>, <>, <>, <> 


#2,ARM.D2D,<(R4) +>, <>, <>, <>, <>, <>, <>, <> 
MSPUT1 


<ARM.D2D> 
<#RM.D2D>,<(R4) +>, <>,<>,<>,<>,<>,<>,<> 
$PUT 1 


M 
<(R4)+> 
<(R4)4+>,<>,<>,<>,<>,<>,<>,5>,<> 
M$PUT1 

<> 

<>, <>, <>, <>, <>, <9, 2,0,0 


<(R4) +> 


S <MOV (R4)+,-(SP)> 


GN 
-IF LT SVCINS 
MOV 


-MEXIT 


-ENDC 
-IF EQ SVCINS 
MOV 


-MEXIT 


- ENDC 
FF 


« ENDC 
-IF GT SVCINS 
IST 


(R4)+,-(SP) 


(R4)+,-(SP) 


«NLIST 


MOV 


(R4)+,=(SP) 


SEQ 0172 


poo 


| E 14 
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GLOBAL SUBROUTI ION 


005566 


005566 


005566 012746 007151 


005572 


005572 


005572 012746 000002 





-IF DIF B,<(R4&)+> 
-ERROR ;ILL. ARG. *(R4)*"* ONLY 'B'' IS ALLOWED. 


M$GNINS <CLR  _ =(SP)> 
M$GNINS <BISB- ,(SP)> 


-I1F NB <ARM.D2D> 
MS$PUT1 #RM.D2D 
2 i MSGNINS 
M$GNINS <MOV #RM.D2D,-(SP)> 
-IF LT SVCINS 

MOV ' #RM.D2D,-(SP) 


»MEXI 
« ENDC 
IF EQ SVCINS 
MOV #RM.D2D,=(SP) 
-MEXIT 


-ENDC 
-IF GT SVCINS 
oL IST 


«NLIST 


“IF DIF 8,<ARM.D2D> 
"ERROR ;:ILL. ARG. ‘#RM.D2D'’ ONLY 'B' IS ALLOWED. 


M$GNINS <CLR —_ =(SP)> 
M$GNINS <BISB- ,(SP)> 


ENDC 

.- ENDC 

-ENDC 

IF <#2> 
M$PUT1 # 


2 
-MCALL M$GNINS 
M$GNINS <MOV #2, -(SP)> 


-MEXI 

- ENDC 

-IF EQ SVCINS 

MOV #2,-(SP) 

-MEXIT 

« ENDC 

-IF GT SVCINS 

«LIST 

«NLIST 


-ENDC 
oIFF 
-IF DIF B,<#2> 


MOV 


MOV 


SEQ 0173 


#RM.D2D,-(SP) 


#2,-(SP) 


ee eee 


SUBROUTINES SECTION 


005576 


005576 010600 


005600 
005600 


005600 


005600 104416 


005602 


005602 062706 000006 


ELA eioe i ac eae eee 


~ERROR ;ILL. ARG. ‘42°’ ONLY 
-MEXIT 
~ENDC 
MSGNINS <CLR -(SP)> 
MS$GNINS <BISB- ,(SP)> 
.ENDC 
-ENDC 
M$GNINS <MOV SP ,RO> 
IF LT SVCINS 
MOV SP,R 
-MEXIT 
.ENDC 
-1F EQ SVCINS 
MOV SP,RO 
-MEXIT 
-IF GT SVCINS 
LIST 
-NLIST 
.ENDC 
M$SVC CSPNTS 
-MCALL MSGNINS,MSTSTLAB 
MS$TSTLAB 
-MCALL MSTLABEL,MSINCR 
-IIF LT TSTSTMAC, .MEXIT 
RADIX 
MSTLABEL 
.RADIX 
M$INCR TSTSTSEQ 
MS$GNINS <TRAP C$PNTS> 
~IF LT SVCINS 
TRAP CS$PNTS 
-MEXIT 
.ENDC 
-IF EQ SVCINS 
TRAP CS$PNTS 
-MEXIT 
-ENDC 
IF GT SVCINS 
AIST 
eNLIST 
eR N,<\TSARGCNT *2+2> 
iSGuINs <ADD #N,SP> 
MSGNINS <ADD #6,SP> 
-IF LT SVCINS 
ADD #6,SP 
.MEX 
~ENDC 
IF EQ SVCINS 
ADD #6, SP 


oMEXIT 
-ENDC 
-IF GT SVCINS 


F 14 
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\TSTESTNUN, \T$TSTSEQ 


"B'' IS ALLOWED. 


MOV SP,RO 


TRAP CSPNTS 


SEQ 0174 


eo + SS 


| 


G 14 
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| GLOBAL SUBROUTINES SECTION 


! 


j LIST 
ADD #6,SP 


«NUIST 
- ENDC 


-MEXIT 
-ENDC 


1 <> 
MSPRINT CSPNTS,4RM.D2D,<(R4)+>,<> 
of <> 
MSPRINT CSPNTS,4RM.D2D,<(R4)+>,<>,<> 
wae <> 
MSPRINT CSPNTS,ARM.D2D,<(R4)+>,<>,<>,<> 
<> 
MSPRINT CSPNTS,A4RM.D2D,<(R4)+>,<>,<>,<>,<> 
<> 
MSPRINT CSPNTS,ARM.D2D,<(R4)+>,<>,<>,<>,<>,<> 


a <> 
MSPRINT CS$PNTS,ARM.D2D,<(R4)+>,<>, <>, <>, <>, <>, <> 


EN 
M$PRINT CSPNTS,ARM.D2D,<(R4) +>, <>, <>, <>, <>, <>, <>, <> 
PRINTS #RM.D2H,(R4)+ 
-MCALL M$PRINT 
IF #RM.D2H 
-ERROR ;MISSING FORMAT 
i B  <(R4)+> 
MS$PRINT CS$PNTS,4RM.D2H 


? B <> 
MSPRINT C$PNTS,4RM.D2H,<(R4) +> 
-MCALL MSCOUNT .MSPUT ,MSGNINS ,M$SVC 


CNT=1 
a TSARGCNT, <(R4) +>, <>, <>, <>, <>, <>, <>, <> 
<> 
oe a TSARGCNT ,, <>, <>, <>, <>, <>, <>, <>, <> 


«END 

IF NB <(R4)+> 
TSARGCNT=T$ARGCNT +1 
-ENDC 


. I1RP N,<\TSARGCNT> 
M$PUT #N,ARM.D2H,<(R4)+>, <>, <>, <>, <>, 09,0,0> 


DM 
M$PUT #&2,4RM.D2H,<(R4)+>,<>, <>, <>, <>, <>, <>, <> 
-MCALL M$PUT1 





—— eee enn nn nn — _=SOoee #. 


| GLOBAL SUBROUTINES SECTION 
| 
| 
| 005606 
005606 
005606 


005606 


0C5606 012446 


005610 


005610 


005610 012746 007233 
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.1F NB <#RM.D2H> 

M$PUT <ARM.D2H>,<(R4)+>,<>,<>,<>,<>,<>,<> .°O 
-MCALL M$PUT1 

-IF NB <(R4)+> 

MSPUT <(R4)4>,<>,<>, <>, <>, <>, <9, <>,<> 

-MCALL M$PUT1 

-IF NB <> 

M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


- ENDC 
-IF NB <(R4)+> 
M$PUT1 (R4)+ 
as y M$GNINS 
M$GNINS <MOV (R4)+,=(SP)> 
-IF LT SVCINS 
MOV (R4)+,=(SP) 
»MEXIT 


~ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 


-ENDC 
-IF GT SVCINS 
IST 


(R4)+,=(SP) 


MOV (R4)+,-(SP) 
«NLIST 
- ENDC 
IFF 
-IF DIF B,<(R4)+> 
«ERROR ;ILL. ARG. *(R4)+** ONLY ‘'B'' IS ALLOWED. 


o£ 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


-IF NB <A#RM.D2H> 

MSPUT1 #RM.D2H 

sy M$GNINS 

MS$GNINS <MOV ARM. D2H,-(SP)> 

IF LT SVCINS 

MOV iT #RM.D2H,-(SP) 

-ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

- ENDC 

-IF GT SVCINS 


#RM.D2H,-(SP) 


MOV #RM.D2H,=(SP) 
»NLIST 
-ENDC 


1FF 
-1F DIF B,<#RM.D2H> 


a ee 


SEQ 0176 
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| GLOBAL SUBROUTINES SECTION 


; -ERROR ;ILL. ARG. ‘'#RM.D2H"' ONLY 'B'' IS ALLOWED. 


M$GNINS <CLR  _=(SP)> 
MSGNINS <BISB  ,(SP)> 


"IF NB <#2> 
005614 MSPUT1 #2 
_MCALL M$GNINS 


i 

005614 MSGNINS <MOV #2,-(SP)> 
~IF LT SVCINS 
MO #2,-(SP) 


“IF EQ SVCINS 
005614 012746 000002 MOV #2,-(SP) 


“IF Gr SVCINS 


MOV #2,-(SP) 
eNLIST 
-ENDC 
FF 


zk 

-IF DIF B,<#2> 

-ERROR ;ILL. ARG. ‘42°’ ONLY ‘B’' IS ALLOWED. 
-MEXIT 


-ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 
- ENDC 


- ENDC 
005620 M$GNINS <MOV SF ,RO> 
-IF LT SVCINS 


- END 
-IF EQ SVCINS 

005620 010600 MOV SP,RO 
-MEXIT 


-ENDC 
-IF GT SVCINS 


MOV SP RO 
«NLIST 


- ENDC 
005622 M$SVC CS$PNTS 
-MCALL MS$GNINS,,MS$TSTLAB 
005622 M$TSTLAB 
-MCALL_ M$TLABEL .M$INCR 
TIF LT TSTSTMAC, .MEXIT 
-RADIX 10 
MS$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 








See A. 9 Sea tae 

J 
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GLOBAL SUBROUTINES SECTION 


M$INCR TSTSTSEQ 
005622 M$GNINS Pies C$PNTS> 


»MEXIT 
- ENDC 
IF EQ SVCINS 
005622 104416 TRAP CS$PNTS 
-MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


TRAP CSPNTS 
»NLIST 
-ENDC 


. 1RP N,<\TSARGCNT *2+2> 
—— <ADD AN, SP> 


- END 
005624 MS$GNINS <ADD #6,SP> 
-IF LT SVCINS 
ADD #6,SP 
»MEXIT 
-ENDC 
IF EQ SVCINS 
ADD 

-MEXIT 
- ENDC 
-IF GT SVCINS 

IST 


005624 062706 000006 


#6,SP 


ADD #6,SP 
»NLIST 
-ENDC 


" <> 

M$PRINT CS$PNTS,4RM.D2H,<(R4)+>,<> 

‘ <> 

MS$PRINT CSPNTS,ARM.D2H,<(R4)+>,<>,<> 

. B <> 

MS$PRINT C$PNTS,ARM.D2H,<(R4) +>,<>,<>,<> 

. B <> 

MSPRINT CSPNTS,4RM.D2H,<(R4)+>,<>,<>,<>,<> 
Seo. 

MSPRINT CS$PNTS,ARM.D2H,<(R4)+>,<>, <>, <>,<>,<> 


. B <> 
MSPRINT CS$PNTS,4RM.D2H,<(R4) +>, <>, <>, <>, <>, <>, <> 





ee —_—— a . — 


| 
| CZUDEAO_PDP=11 UDA 
GLOBAL SUBROUTINES 


12 005630 


005630 


000001 
005630 


000002 


005630 
005630 


005630 


005630 


005630 


005630 012446 





DISK 
SECTION 
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.ENDC 

MSPRINT CSPNTS,A4RM.D2H,<(R4)+>,<>,<>,<>, <>, <>, <>, <> 
PRINTS #RM.D3D,(R4)+ ; DBN MESSAGES 

“ey MSPRINT 


#RM.D3D 
-ERROR ;MISSING FORMAT 


-IF B  <(R4)+> 
MSPRINT CS$PNTS,A4RM.D3D 


<> 
MSPRINT CSPNTS,A4RM.D3D,<(R4) +> 
-MCALL MS$COUNT,MSPUT ,MSGNINS ,M$SVC 
TSARGCNT=1 

ne TSARGCNT ,<(R4) +>, <>, <>, <>, <>, <>, <>,<> 
2 <> 

+ wl TSARGCNT, <>, <>, <>, <>, <>,<>,<>,<> 


-IF NB <(R4)+> 

TSARGCNT=T$SARGCNT +1 

-ENDC 

. IRP N.<\TSARGCNT> 

MSPUT #N,ARM.D3D,<(R4)+>,<>,<>,<>,<>,<>,<>, <> 


M$PUT #2,4RM.D3D,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 
MS$PUT 1 


.IF NB <ARM.D3D> 

M$PUT <ARM.D3D>,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 

-IF NB <(R4)+> 

MS$PUT <(R4)+>,<>,<>,<>,<>,<>,<>,<>,<> 

-MCALL M$PUT1 

-IF NB <> 

M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


-IF NB <(R4)+> 


-IF B 

M$GNINS <MOV (R4)+,=(SP)> 
-IF LT SVCINS 

MOV (R4)+,-(SP) 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV (R4)+,-(SP) 
»MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 
MOV 
»NLIST 
-ENDC 


-1FF 
~IF DIF B,<(R4)+> 


(R4)+,=(SP) 


SEQ 0179 
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GLOBAL SUBROUTINES SECTION 


005632 


005632 


005632 012746 007315 


005636 


095636 


005636 012746 000002 


- ENDC 
MS$GNINS <CLR 
M$GNINS <BISB 


EentT sILL. ARG. **(R4)+*"* ONLY 'B’’ IS ALLOWED. 


=-(SP)> 
~(SP)> 


M$PUT1 #RM.D3D 
.MCALL MS$GNINS 


-IF B 
MS$GNINS <MOV 
-IF LT SVCINS 


#RM.D3D,-(SP)> 


MOV #RM.D3D,-(SP) 


- ENDC 
-IF EQ SVCINS 
MOV 


‘IF GT SVCINS 


#RM.D3D,-(SP) 


eNLIST 


“IF DIF B,<#RM.D3D> 


ERROR ;ILL. ARG. ‘#RM.D3D°* ONLY ‘B’’ IS ALLOWED. 


M$GNINS <CLR 
M$GNINS <BISB 


-IF NB <#2> 


-(SP)> 
~(SP)> 


#2 
“ns M$GNINS 


MS$GNINS <MOV 
-IF LT SVCINS 
MOV #2,-( 
»MEXIT 

- ENDC 

IF EQ SVCINS 

MOV 

-MEXIT 

- ENDC 

-IF GT SVCINS 
-LIST 


-ENDC 


-1FF 
-IF DIF B,<#2 
ERROR ;ILL. 


#2,-(SP)> 


SP) 


#2,-(SP) 


«NLIST 


> 
ARG. *#2°' ONLY ‘BY’ IS ALLOWED. 





~ MOV #2,-(SP) 


SEQ 0180 


MOV #RM.D3D,-(SP) 




















CZUDEAO PDP=11 $s ; 


I 
GLOBAL SUBROUTINES SECTION 


005642 


005642 010600 


005644 
005644 


005644 


005644. 104416 


005646 


005646 062706 000006 
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-MEXIT 


-ENDC 
M$GNINS <CLR =(SP)> 
M$GNINS <BISB-— ,(SP)> 
- ENDC 


-ENDC 
MSGNINS <MOV SP,,R0> 
-IF LT SVCINS 


MOV SP,RO 
-MEXIT 
- ENDC 
IF EQ SVCINS: 
MOV SP ,RO 
-MEXIT 
.» ENDC 
- oF GT SVCINS 
«LIST 
MOV SP,RO 
«NLIST 


-ENDC 

M$SVC C$PNTS 

-MCALL M$GNINS ,M$TSTLAB 
MS$TSTLAB 

-MCALL_ M$TLABEL,.M$INCR 
-IIF LT TSTSTMAC, .MEXIT 


-RADIX 10 

MSTLABEL \TSTESTNUN, \TSTSTSEQ 
~RADIX 8 

MS$INCR TSTSTSEQ 

MSGNINS <TRAP C$PNTS> 

-IF LT SVCINS 

TRAP C$PNTS 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
TRAP CS$PNTS 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 
TRAP CSPNTS 
eNLIST 


-ENDC 
. IRP N,<\TSARGCNT *2+2> 
MS$GNINS <ADD #N,SP> 


- ENDM 

M$GNINS <ADD #6,SP> 

-IF LT SVCINS 

ADD #6 ,SP 

»MEXIT 

-ENDC 

-IF EQ SVCINS 
ADD 

-MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 


#6,SP 






SEQ 0181 





CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUTINES S 


13 005652 


005652 


005652 


005652 





I 
E 


000001 


000002 





SK 
CTION 
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-NLIST 


I <> 

MSPRINT CSPNTS,ARM.D3D,<(R4)+>,<> 

ar © 

MSPRINT CSPNTS,ARM.D3D,<(R4)+>,<>,<> 

2 <> 

MSPRINT CS$PNTS,ARM.D3D,<(R4)+>,<>,<>,<> 


nar © <> 

MSPRINT CSPNTS,ARM.D3D,<(R4) +>,<>,<>,<>,<> 
-ENDC in 

IF <> re 

MSPRINT CS$PNTS,ARM.D3D,<(R4) +>, <>, <>, <>,<>,<> 


ar 8 <> 
MSPRINT CS$PNTS,ARM.D3D,<(R4)+>,<>,<>, <>, <>, <>, <> 


MSPRINT CSPNTS,ARM.D3D,<(R4)+>,<>,<>,<>,<>, <>, <>, <> 
PRINTS #RM.D3H,(R4)+ 
eS MSPRINT 


#RM.D3H 
«ERROR ;MISSING FORMAT 


-IF B  <(R4)+> 
MSPRINT C$PNTS,A4RM.D3H 


. <> 
M$PRINT C$PNTS,A4RM.D3H,<(R4) +> 
-MCALL has saat -MSPUT ,MSGNINS ,M$SVC 


=1 
ag TSARGCNT , <(R4) +>, <>, <>, <>, <>, <>, <>, <> 
=e centeendl. #6. tit itn 

N 


“IF NB <(R4)+> 

TSARGCNT=TSARGCNT $1 

“IRP —sN, <\ TSARGCNT> 

MS$PUT #N,4RM.D3H,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 


M$PUT #2,4RM.D3H,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
IF NB <#RM.D3H> 


ADD #6,SP 


SEQ 0182 


eS 
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GLOBAL SUBROUTINES SECTION 
005652 MSPUT <#RM.D3H>,<(R4)4>,<>,<>,<>, <>, <>, <>, <> 
-MCALL MS$PUT1 
-IF NB <(R4)+> 
005652 T << (RG) 49, <>, <>, <>, <>, <>, <>, <9, <> 
-MCALL M$PUTI 
-IF NB <> 
T <>,<>,<>,<>,<>,<>,<>,<>,<> 
-ENDC 
~IF NB <(R4)+> 
005652 M$PUT1 (R4)+ 
‘a MSGNINS 
005652 M$GNINS <MOV (R4)+,=-(SP)> 


005652 012446 


005654 


0905654 


005654 012746 007377 


-IF LT SVCINS 

MOV (R4)+,=(SP) 

-MEXIT 

- ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

-IF GT SYCINS 


(R4)+,=(SP) 


MOV 
eNLIST 


od 
-IF DIF B,<(R4)+> 
-ERROR ;ILL. ARG. **(R4)+"* ONLY ‘B’' IS ALLOWED. 


M$GNINS <CLR  _ =(SP)> 
M$GNINS <BISB- ,(SP)> 


M$PUT1 #RM.D3H 
-MCALL MSGNINS 


me B 

M$GNINS <MOV #RM.D3H,-(SP)> 
-IF LT SVCINS 

MOV iT #RM.D3H,-(SP) 


« ENDC 
-IF EQ SYCINS 
MOV #RM.D3H,-(SP) 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 


»NLIST 


-ENDC 

 1FF 

-IF DIF B,<#RM,D3H> 

-ERROR ;ILL. ARG. '#RM.D3H'’ ONLY ‘B’' IS ALLOWED. 





(R4)+,=(SP) 


#RM.D3H,-(SP) 
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CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUT SECTION 


] 
INES SE 
-MEXIT 


-ENDC 
M$GNINS <CLR =(SP)> 
—- <BISB- , (SP)> 


~ENDC 

-IF NB <#2> 
005660 M$PUT1 #2 

-MCALL MS$GNINS 


-IF B 
005660 M$GNINS my od #2,-(SP)> 


EN 
IF EQ SVCINS 
005660 012746 000002 ext? MOV #2,-(SP) 


.ENDC 
ree SVCINS 
mi 
MOV #2,-(SP) 
hd «NLIST 
-ENDC 


-IF DIF 8,<#2> 
“ERROR ;ILL. ARG. ‘#2'' ONLY 'B'' IS ALLOWED. 


-MEXIT 
-ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BIS8 ~~, (SP)> 
-ENDC 
- ENDC 
005664 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SPR 
-MEXIT 
- ENDC 
-IF EQ SVCINS 
010600 MOV SP,RO 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 
MOV SP RO 
«NLIST 
-ENDC 
M$SVC  C$PNTS 
-MCALL MSGNINS -M$TSTLAB 
MSTSTLAB 


-MCALL_ M$TLABEL,.M$SINCR 
yy T$TSTMAC, .MEXIT 


10 
oh \TSTESTNUN, \TSTSTSEQ 
M$INCR TSTSTSEQ 
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CZUDEAO PDP=11 3 


DI 
SE 


GLOBAL SUBROUTINE TION 
005666 MS$GNINS <TRAP C$PNTS> 
-IF LT SVCINS 
TRAP CSPNTS 
-MEXIT 
- ENDC 
-IF EQ SVCINS 
005666 104416 TRAP C$PNTS 
-  «MEXIT 


- ENDC 
-IF GT SVCINS 
«LIST 


TRAP CSPNTS 
«NLIST 
-ENDC 


. IRP N,<\TSARGCNT *2+2> 
MSGNINS <ADD AN, SP> 


- END 
005670 MSGNINS <ADD #6, SP> 
-IF LT SVCINS 
ADD #6,SP 
-MEXIT 
-ENDC 
-1F EQ SVCINS 
005670 062706 000006 ADD #6,SP 
-MEXIT 
- ENDC 
-IF GT SVCINS 
© IST 


ADD #6,SP 
«NLIST 


S <£& 
MSPRINT CS$PNTS,4RM.D3H,<(R4)+>,<> 
<> 
MSPRINT CSPNTS,A4RM.D3H,<(R4)+>,<>,<> 
<> 
MSPRINT CSPNTS,4RM.D3H,<(R4)+>,<>,<>,<> 
<> 
MSPRINT CSPNTS,4RM.D3H,<(R4)+>,<>,<>,<>,<> 
<> 
MSPRINT C$PNTS,4RM.D3H,<(R4)+>,<>, <>, <>, <>, <> 


. <> 
MSPRINT CSPNTS,4RM.D3H,<(R4) +>, <>, <>, <>, <>, <>, <> 
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| GLOBAL SUBROITINES SECTION 


MSPRINT CS$PNTS,4RM.D3H,<(R4)+>,<>,<>,<>, <>, <>, <>, <> 
14 0056.4 PRINTS #RM.D4D,(R4)+ ; XBN MESSAGES 
“a MSPRINT 


#RM.D4D 
«ERROR ;MISSING FORMAT 


-MEXIT 
-ENDC 
sar © <(R4) +> 
MSPRINT CSPNTS,A4RM.D4D 
ns ) 
005674 MSPRIN T CSPNTS, ARM .D4D,<(R4)+> 
-MCALL MSCOUNT -MS$PUT, MS$GNINS, M$SVC 
000001 TSARGCNT= 
005674 ae en TSARGCNT. <(R4) +>, <>, <>, <>, <>, <>, <>, <> 
<> 


MS$COUNT TSARUCNT,<>,<>,<>,<>,<>,<>,<>,<> 


-ENDC 
“IF NB <(R4)+> 
000002 1 > ap. imanemmesati’y 


. IRP N,<\TSARGCNT> 
MSPUT #N,ARM.D4D,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 


- ENDM 

005674 MSPUT #2,4RM.D4D,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 
-MCAILL M$PUTI 
.I1F NB <ARM.D4D> 

005674 MSPUT <ARM.D4D>,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 


-MCALL M$PUT1 
-IF NB <(R4)+> 
005674 M$PUT <({R4)4+>,<>,<>,<>,<>,<>,<>,<>,<> 
M$PUT1 


-IF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


-IF NB <(R4)+> 
005674 MSPUT1 (R4)+ 


IF 
005674 MSGNINS <MOV (R4)+,-(SP)> 
-IF LT SVCINS 
MOV (R4)+,=(SP) 
»MEXIT 


- ENDC 

-IF EQ SVCINS 
005674 012446 ‘MOV (R4)+,=(SP) 
-MEXIT 


» ENDC 
-IF GT SVCINS 
. IST 

MOV (R4)+,=(SP) 


eNLIST 
-ENDC 


IFF 
-IF DIF B,<(R4)+> 
-ERROR ;ILL. ARG. ‘'(R4)+** ONLY 'B’' IS ALLOWED. 
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GLOBAL SUBROUTINES SECTION 


M$GNINS <CLR -(SP)> 
oo 65 <BISB-,(SP)> 


“IF NB <ARM.D4D> 
005676 MSPUT1 #RM.D4D 
-MCALL MSGNINS 


005676 MSGNINS Ng #RM.D4D,-(SP)> 
-IF LT SVCINS 
MOV #RM.D4D,-(SP) 
»MEXIT 


-ENDC 
-IF EQ SVCINS 

005676 012746 007461 exit MOV #RM.D4D,-(SP) 
-MEX 


-ENDC 
-IF GT SVCINS 
«LIST 


MOV #RM.D4D,-(SP) 
«NLIST 


am | 
-IF DIF B,<#RM.D4D 
“ERROR ;1LL. ARG. > eRe. D4D'' ONLY *B’' IS ALLOWED. 


M$GNINS <CLR _ =(SP)> 
MS$GNINS <BIS8  _, (SP)> 


"IF NB <#2> 
005702 M$PUT1 
-MCALL M$GNINS 


< B 
005702 MSGNINS <MOV #2,-(SP)> 
-IF LT SVCINS 
MOV #2,~-(SP) 
-MEXIT 
END 


a C 

-I1F EQ SVCINS 
005702 012746 000002 MOV #2,-(SP) 
-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 


.- 3 
Nm 


MOV #2,-(SP) 
eNLIST 


FF 

-IF DIF B,<#2> 

-ERROR ;ILL. ARG. *#2°' ONLY ‘BY’ IS ALLOWED. 
-MEXIT 





/CZUDEAO PDP=11 UDA D 
NES S 


GLOBAL SUBROUTI ION 


005706 


005706 010600 


005710 
005710 


005710 


005710 104416 


005712 


005712 062706 000006 





G 15 
a FORMATT MACRO VO04.00 23-JUL=81 15:27:47 PAGE 41-30 


.ENDC 
M$GNINS <CLR -(SP)> 
MS$GNINS <BISB- ,(SP)> 
~ENDC 


-ENDC 
M$GNINS <MOV 


SP ,RO> 
-IF LT SVCINS 
MOV SP RO 
MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV SP RO 
-MEXIT 
«ENDC 
-1F GT SVCINS 
«NLIST 


- ENDC 

M$SVC = CS$PNTS 

-MCALL MS$GNINS ,MSTSTLAB 
MSTSTLAB 

-MCALL_ MS$TLABEL .MSINCR 
, ny TSTSTMAC, .MEXIT 


10 
oe \TSTESTNUN, \TSTSTSEQ 


RADIX 8 
M$INCR TSTSTSEQ 
CS$PNTS> 


NDC 
LIF EQ —_ 
TRAP 

»MEXIT 

-ENDC 
-IF GT SVCINS 

IST 


C$PNTS 


eNLIST 


—— 
- JRP N,<\TSARGCNT*2+2> 
MSGNINS <ADD AN, SP> 


- END 

HSGNINS <ADD #6, SP> 
-IF LT SVCINS 
ADD #6,SP 
»MEXIT 

-ENDC 

-I1F EQ SVCINS 

ADD 

«MEXIT 

- ENDC 

-IF GT SVCINS 
IST 


#6,SP 


TRAP 


ADD 


SP,RO 


CSPNTS 


#6 ,SP 


SEQ 0188 


_-——_--------- 
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GLOBAL SUBROUTINES SECTION 


| .NLIST 
| yg <> 
| MSPRINT CSPNTS,A4ARM.D4D,<(R4)+>,<> 
<> 

MSPRINT CS$PNTS,ARM.D4D,<(R4) +>,<>,<> 

. <> 

MSPRINT CS$PNTS,ARM.D4D,<(R4)+>,<>,<>,<> 

<> 

MSPRINT CSPNTS,ARM.D4D,<(R4)+>,<>,<>,<>,<> 
‘ <> 
eit CSPNTS ,ARM.D4D,<(R4)+>,<>,<>, <>, <>, <> 


i <> 
MSPRINT CS$PNTS,4RM.D4D,<(R4) +>, <>, <>, <>, <>,<>,<> 


o£ 

MSPRINT CSPNTS,ARM.D4D,<(R4)+>,<>,<>,<>,<>, <>, 2, <> 
15 005716 PRINTS #RM. D4H, (R4)+ 

~~ MSPRINT 


° #RM.D4H 
»ERROR ;MISSING FORMAT 


. B <(R4) +> 
MSPRINT CS$PNTS,ARM.D4H 


‘ B <> 
095716 MSPRINT CSPNTS,ARM.D4H,<(R4) +> 
-MCALL One MS$PUT, MSGNINS, M$SVC 
000001 TSARGCNT=1 


005716 ae TSARGCNT , <(R4) +>, <>, <>, <>, <>, <>, <>, <> 
M$COUNT TSARGCNT, <>, <>, <>,62,2,02,0,0 


-ENDC 
“IF NB <(R4)+> 
000002 & > eiteiapaamamati 
-IRP —N, <\ T$ARGCNT> 
_ 4#N,ARM.DS4H,<(R4) +>, <>, <>, <>, <>, <>, <>, <> 
J N 
005716 MSPUT = | pa eet hat, daa ah 


-MCALL 
IF NB <A#RM.D4H> 
005716 M$PUT <#RM.D4H>,<(R4)+>,<>,<>,<>,<>,2,0,0 


= 
wf 





poe ee 


i 


GLOBAL SUBROUTINES SECTION 


005716 


005716 


005716 


005716 012446 


005720 


005720 


005720 012746 007543 
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-MCALL M$PUT1 

-IF NB <(R4)+> 

MS$PUT -(R4) +>, <>, <>, <>, <>, <>, 69, <9, <> 
-MCALL M$PUT1 

-IF NB <> 

M$PUT <>,<>,<>,<>,<>,<>, <>, <>, <> 


<(R4) +> 


MOV (R4)+,=(SP) 
-MEXI 

- ENDC 

IF EQ SVCINS 

MOV (R4)+,-(SP) 

-MEXIT 

- ENDC 

-1F GT SVCINS 

“LIST 

«NLIST 

-ENDC 

oar 


-IF DIF 8,<(R4) +> 
-ERROR ;ILL. ARG. *(R4)+'* ONLY ‘'B’' IS ALLOWED. 


-ENDC 
MSGNINS <CLR -(SP)> 
MS$GNINS <BIS8 ~(SP)> 
-ENDC 

~ENDC 

-ENDC 

IF <ARM.D4H> 


-1F NB 
MSPUT1 #RM.D4H 
-MCALL MS$GNINS 


IF 
MS$GNINS <MOV #RM.D4H,-(SP)> 
-IF LT SVCINS 
MOV #RM.D4H,-(SP) 


-MEXIT 
- ENDC 
IF EQ SVCINS 
MOV #RM.D4H,-(SP) 
-MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 


»NLIST 
-ENDC 


~ 1FF 
-IF DIF B,<#RM.D4H> 


ERROR ;ILL. ARG. ‘#RM.D4H"* ONLY ‘B’' IS ALLOWED. 


-MEXIT 


MOV 


SEQ 0190 


(R4)+,-(SP) 


#RM.D4H,=(SP) 


Pn 
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CZUDEAO PDP=11 UDA D 
S SECTION 


I 

GLOBAL SUBROUTINES SE 
-ENDC 

M$GNINS <CLR -(SP)> 

M$GNINS <BISB-— ,(SP)> 


ENDC 
-ENDC 
ENDC 
-IF NB <#2> 
005724 M$PUT1 #2 
“ns MSGNINS 
005724 M$GNINS <MOV #2,-<SP)> 


»MEXIT 

- ENDC 

-I1F GT SVCINS 

«LIST 

MOV 
«NLIST 
-ENDC 
if? 


-IF DIF B,<#2> 
~-ERROR ;ILL. ARG. ‘#2°" ONLY ‘B’’ IS ALLOWED. 
MEXIT 


-ENDC 
MSGNINS <CLR -(SP)> 
M$GNINS <BISB ~(SP)> 
.-ENDC 


- ENDC 
005730 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SP,RO 
»MEXIT 


- ENDC 
-.IF EQ SVCINS 

005730 010600 MOV SP.RO 
-MEXIT 


-IF EQ SVCINS 
005724 012746 000002 MOV #2,-(SP) 
- ENDC 
-IF GT SVCINS 
«LIST 
MOV 
NLIST 


-ENDC 
005732 M$SVC _C$PNTS 

-MCALL MS$GNINS,MS$TSTLAB 
005732 MSTSTLAB 

-MCALL_ MS$TLABEL,MSINCR 

-IIF LT TSTSTMAC, .MEXIT 

»RADIX 10 

MSTLABEL | \TSTESTNUN, \T$TSTSEQ 


RADIX 
MSINCR TSTSTSEQ 
005732 M$GNINS <TRAP  C$PNTS> 


#2,-(SP) 


SP RO 


SEQ 0191 
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| CZUDEAO PDP=11 UDA D 
S SECTION 


ISK 
GLOBAL SUBROUTINES SE 
-IF LT SVCINS 
TRAP CSPNTS 
-MEXIT 
- ENDC 
-IF EQ SVCINS 
005732 104416 TRAP C$PNTS 
»MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 
TRAP CS$PNTS 
«NLIST 
- ENDC 


. IRP N,<\TSARGCNT *2+2> 
MSGNINS <ADD AN, SP> 


END 

005734 M$GNINS <ADD #6, SP> 
pa LT SVCINS 
AMEXIT 
- ENDC 
-IF EQ SVCINS 

005734 062706 000006 ADD #6,SP 
-MEXIT 


-ENDC 
-IF GT SVCINS 
-LIST ° 
ADD #6,SP 
»NLIST 


oat <> 
MSPRINT CS$PNTS,4RM.D4H,<(R4)+>,<> 
IF <> 
MSPRINT CSPNTS,A4RM.D4H,<(R4)+>,<>,<> 
ar & 
MSPRINT C$PNTS,ARM.D4H,<(R4)+>,<>,<>,<> 
‘1 £ .. 
MSPRINT C$PNTS,ARM.D4H,<(R4)+>,<>,<>,<>,<> 
I <> 
MSPRINT CS$PNTS,4RM.D4H,<(R4)+>,<>,<>,<>,<>,<> 


"aA Be... 
MSPRINT C$PNTS,A4RM.D4H,<(R4)+>,<>,<>,<>,<>,<>,<> 


o£ 
MSPRINT CSPNTS,4RM.D4H,<(R4) +>, <>, <>, <>, <>, <>, <>, <> 



















16 005740 


005740 


000001 
005740 


000002 


005740 


005740 


005740 


005740 


005740 


005740 012446 
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GLOBAL SUBROUTINES SECTION 


PRINTS #RM. RET, (R4)+ 


-MCALL M$PRINT 
FB 


#RM.RE 


T 
-ERROR ;MISSING FORMAT 


B  <(R4)+> 


oJ 
MSPRINT CS$PNTS,ARM.RET 


ae <> 
MS$PRINT CS$PNTS,ARM.RET,<(R4) +> 


CN 
M$COUNT 
F NB <> 
COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


I 
M$ 


L Di scent aera tet 


-EN C 
~IF NB <(R4)+> 
TSARGCNT=TSARGCNT +1 


; RETRIES MESSAGE 


TSARGCNT, <(R4) +>, <>, <>, O,O,0,0,0 


-ENDC 

- IRP N,<\TSARGCNT> 

M$PUT #N,ARM.RET,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 
-ENDM 

MSPUT #&2,ARM.RET,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 

IF <ARM.RET> 


MS$PUT <ARM.RET>,<(R4)+>,<>,<>,<>,<>, <> 
-MCALL M$PUT1 


<(R4) +> 


IF NB 

M$PUT <(R4)+>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL MS$PUT1 

-IF NB <> 

M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


<(R4) +> 


oir B 

M$GNINS <MOV (R4)+,-(SP)> 
-IF LT SVCINS 

MOV 


-ENDC 
-IF EQ SVCINS 
MOV 


(R4)+,-(SP) 


(R4)+,-(SP) 


»MEXIT 


- ENDC 
-IF GT SVCINS 
IST 


eNLIST 


-ENDC 
IFF 
-IF DIF B,<(R4)+> 


. ERROR 
EXIT 


OC 


ZILL. ARG. **(R4)+"* ONLY 'B’’ IS ALLOWED. 


MOV 


(R4)+,-(SP) 


SEQ 0193 


t he 
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GLOBAL SUBROUTINES SECTION 


005742 


005742 


005742 012746 007625 


005746 


005746 


005746 012746 000002 





- ENDC 
M$GNINS <CLR -(SP)> 
ot pee <BISB- ,(SP)> 


-ENDC 

-ENDC 

-IF NB <ARM.RET> 

M$PUT1 #RM.RET 

ey M$GNINS 

M$GNINS <MOV #RM.RET,=(SP)> 

-IF LT SVCINS 

MOV #RM.RET,-(SP) 

-MEXIT 

-ENDC 

IF EQ SVCINS 
MOV 

-MEXIT 

-ENDC 

-I1F GT SVCINS 


#RM.RET ,~(SP) 


-NLIST 


-IF DIF B,<#RM.RET> 


“ERROR ;ILL. ARG. 'WRM.RET'’ ONLY 'B'' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
> ee <BISB- ,(SP)> 


IF B 
M$GNINS <MOV #2,-(SP)> 


m C 

-IF EQ SVCINS 
MOV 

»MEXIT 

- ENDC 

-IF GT SVCINS 


#2,~-(SP) 


eNLIST 


-ENDC 


-IFF 

-IF DIF B,<A#2> , 

ERROR ;ILL. ARG. ‘#2'' ONLY ‘BY’ IS ALLOWED. 
»MEXIT 

-ENDC 


| 
#RM.RET,~(SP) | 


| 
s 


* SEQ 0194 


#2,-(SP) 










CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUTINES S 


ION 


005752 


005752 010600 


005754 
005754 


005754 


005754 104416 


005756 


005756 062706 000006 
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M$GNINS <CLR =-(SP)> 
oe <BISB- ,(SP)> 


.E 

M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SP RO 


-MEXIT 
-ENDC 
-IF EQ SVCINS 

MOV SP,RO 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 

-ENDC 
M$SVC CS$PNTS 
-MCALL MS$GNINS ,MS$TSTLAB 
MSTSTLAB 


-MCALL_ M$TLABEL .MSINCR 
~ITIF LT atti -MEXIT 


° 0 
ote \TSTESTNUN, \TS$TSTSEQ 


«RADIX 

MS$INCR TSTSTSEQ 
M$GNINS <TRAP C$PNTS> 
-IF LT SVCINS 

TRAP CS$PNTS 


-MEXTT 
-IF EQ SVCINS 

TRAP C$PNTS 
-MEXIT d 
-ENDC 
-IF GT SY¥CINS 
AIS? ch 

-NLIST 


-ENDC 
. iRP N,<\TSARGCNT *2+2> 
oe <ADD #N,SP> © 


MSGNINS <ADD #6,SP> $5, 

IF LT SVCINS Ad 

ADD #6,SP 

»MEXIT . 

~ENDC 

.IF EQ SVCINS 
: ADD 

.MEXIT 

~ENDC 

.1F GT SVCINS 

“LIST 


i) 


46,SP 


»NLIST 


SEQ 0195 


| 
| 
| 
| 
| 
Mov — SP, RO | 


TRAP CSPNTS 


Ss - 


B 16 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 41-38 SEQ 0196 
GLOBAL SUBROUTINES SECTION 


<> 
MSPRINT CSPNTS,@RM.RET,<(R4)4+>,<> 
<> 
MSPRINT CSPNTS,ARM.RET,<(R4)+>,<>,<> 
<> 
MSPRINT CSPNTS,ARM.RET,<(R4)4+>,<>,<>,<> 
oO <> 
MSPRINT CS$PNTS,A4RM.RET,<(R4)+>,<>,<>,<>,<> 
> B < 
MSPRINT CSPNTS,ARM.RET,<(R4)+>,<>,<>,<>,<>,<> 


if 6 © 
tes y 2 CSPNTS ,ARM.RET,<(R4)+>,<>,<>,<>,<>,<>,<> 
MEX 


-ENDC 
MSPRINT C$PNTS,ARM.RET,<(R4)+>,<>,<>,<>,<>,<>,<>,<> 


17 

18 005762 S0B (R4) ,2$ ; WAS COMPLETION CODE 1? 
005762 005314 DEC (R4) 
005764 001011 BNE 2$ 

19 005766 PRINTS #RM.DC1 2 Ves 

-MCALL M$PRINT 

-IF B #RM.DC1 

«ERROR ;MISSING FORMAT 

«MEXIT 

- ENDC 

a Ga 

MSPRINT CS$PNTS,ARM.DC1 

-MCALL MS$COUNT ,MSPUT ,MSGNINS ,M$SVC 

TSARGCNT=1 

MS$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


-IF NB <> 
ae TSARGCNT ,, <>, <>, <>, <>, <>, <>, <>, <> 
“IF NB <> 

TSARGCNT=TSARGCNT +1 

~ENDC 


. IRP N,<\TSARGCNT> 
M$PUT #N,4RM.DC1,<>,<>,<>,<>,<>,<2,0,0 


MS$PUT #1,4RM.DC1,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 

-IF NB <ARM.DC1> 

M$PUT <#RM.DC1>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 





CZUDEAO PDP=11 UDA D 
NES S 


I 
GLOBAL SUBROUTI ECTION 


005766 


005766 


005766 012746 007707 


005772 


005772 


005772 012746 000001 
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-IF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


-IF B 
MSGNINS <MOV #RM.DC1,-(SP)> 
-IF LT SVCINS 


MOV #RM.DC1,-(SP) 
-MEXIT 


-ENDC 

-IF EQ SVCINS 
MOV 

»MEXIT 

-ENDC 

-IF GT SVCINS 

-LIST 


#RM.DC1,=(SP) 


MOV 
«NLIST 


LIF DIF B,<#RM.DC1> 
“ERROR ILL. ARG. '#RM.DC1'' ONLY 'B’' IS ALLOWED. 


E 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


_ 

—* MSGNINS 

M$GNINS <MOV 

-IF LT SVCINS 

MOV #1,-(SP) 

-MEXIT 

- ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

-ENDC 

-IF GT SVCINS 

«LIST 


= 
bad 
Uv 
Ge 
4 
~ 
zz 


#1,-(SP)> 


#1,-(SP) 


MOV 
-NLIST 
-ENDC 


- IFF 

-IF DIF B,<#1> 

-ERROR ;ILL. ARG. ‘'#1°* ONLY ‘'B’’ IS ALLOWED. 
-MEXIT 


-ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 
-ENDC 


SEQ 0197 


#RM.DC1,-(SP) 


#1,-(SP) 


— 


| 
CZUDEAO PDP=11 UD 
GLOBAL SUBROUTINE 


“> 
“no 


TION 


005776 


005776 010600 


006000 


006000 104416 


006002 


006002 062706 000004 


FL Ne ME Ar cid 2 A BRO SRL ee MoE Oe A 
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-ENDC 

M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV 0 


o 


-MEXIT 
-ENDC 
IF EQ SVCINS 

MOV SP,RO 
-MEXIT 
-ENDC 
-IF GT SVCINS 
. IST 

«NLIST 


-ENDC 

M$SVC = CS$PNTS 

-MCALL MS$GNINS,MS$TSTLAB 
MSTSTLAB 

-MCALL_ M$TLABEL,.MS$INCR 


-IIF LT TSTSTMAC, .MEXIT 
»RADIX 


10 
oe \TSTESTNUN, \T$TSTSEQ 


-RADIX 

M$INCR_ TSTSTSEQ 
MSGNINS <TRAP CS$PNTS> 
-IF LT SVCINS 

TRAP C$PNTS 


-MEXIT 
-ENDC 
-IF EQ SVCINS 

TRAP C$PNTS 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 


-ENDC 
. IRP N,<\TSARGCNT*2+2> 
M$GNINS <ADD #N, SP> 


- ENDM 
MSGNINS <ADD #4 ,SP> 


-IF LT SVCINS 
ADD #4 ,SP 
-MEXIT 


-ENDC 
-IF EQ SVCINS 
ADD 


#4 ,SP 
»MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 
»NLIST 
- ENDC 
-MEXIT 
-ENDC 


TRAP 


ADD 


SEQ 0198 


-SP,RO 


C$PNTS 


#4 ,SP 


| CZUDEAO PDP=11 UDA 
GLOBAL SUBROUTINES SECTION 


v7 006006 
22 006010 
006010 
006012 
23 006014 


006014 


006014 


006014 


000423 


005314 
001011 


000001 


-IF B 
MSPRINT 
-MEXIT 
-ENDC 
-IF B 
M$PRINT 
-MEXIT 
-ENDC 


-IF B 
MSPRINT 
M 


MSPRINT 


23: 


SARGENT 
M$COUNT 


-IF NB < 
MSCOUNT 
-ENDC 


IF 


"TRP 

M$PUT 
-ENDM 
M$PUT 
-MCALL 
i NB 
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<> 
CSPNTS,ARM.DC1,<> 

<> 

C$PNTS ,ARM.DC1,<>,<> 

<> 

CSPNTS ,ARM.DC1,<>,<>,<> 

<> 

CSPNTS,ARM.DC1,<>,<>,<>,<> 

<> 

CS$PNTS,ARM.DC1,<>,<>,<>,<>,<> 

<> 

CSPNTS ,ARM.DC1,<>,<>,<>,<>,<>,<> 


<> 
CSPNTS,A4RM.DC1,<>,<>,<>,<>,<>,<>,<> 
CSPNTS,ARM.DC1,<>,<>,<>,<>,<>,<>,<>,<> 
BR 10$ 


SOB (R4) ,3$ 


DEC (R4) 

BNE 3$ 

at gt A#RM.DC2 5 Yes 
a-ty IN 


Dee 
:MISSING FORMAT 


CSPNTS DC2 
MSCOUNT AMSPUTS MSGNINS ,M$SVC 


TSARGCNT , <>, <>, <>, <>, <>, <>, <>, <> 
> 
TSARGCNT,, <>, <>, <>, <>, <>, <>, <>, <> 


NB < 
TSARGCNT=TSARGCNT#1 
-ENDC 


N,<\TSARGCNT> 
AN.ARM.DC2, <>, <>, <>, <>, ©,©, <>, © 


#1,4RM.DC2,<>, <>, <>, <>, <>, <>, <>, <> 
M$PUT1 
<ARM.DC2> 





; WAS COMPLETION CODE 2? 


SEQ 0199 


ese 
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GLOBAL SUBROUTINES SECTION 
006014 


006014 012746 007755 


006020 


006020 


006020 012746 000001 





M$PUT <ARM.DC2>, <>, <>, <>, <2, <>, <,0,0 
-MCALL M$PUT1 
-IF NB <> 
M$PUT <>, <>, <>, <>, <>, <>, <>, ©>,> 


-IF NB <#RM.DC2> 
-IF B 
MSGNINS <MOV #RM.DC2,-(SP)> 
-IF LT SVCINS 

MOV #RM.DC2,-(SP) 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV #RM.DC2,=(SP) 
-MEXIT 


-ENDC 
-IF GT SVCINS 
LIST 
«NLIST 


-1F DIF B,<#RM.DC2> 
«ERROR ;ILL. ARG. '#RM.DC2"* ONLY 'B’ IS ALLOWED. 


M$GNINS <CLR  _=(SP)> 
M$GNINS <BISB- ,(SP)> 


-1F NB ~ fe 

-MCALL M$GNINS 

M$GNINS <MOV #1,-(SP)> 

-IF LT SVCINS 

MOV #1,-(SP) 

-MEXIT 

-IF EQ SVCINS 
MOV 

»MEXIT 

-ENDC 

-IF GT SVCINS 

LIST 


#1,-(SP) 


eNLIST 
-ENDC 


~IFF 
-IF DIF &,<#1> 
“ERROR ;ILL. ARG. ‘#1°* ONLY ‘BY IS ALLOWED. 


-ENDC 
M$GNINS <CLR -(SP)> 


SEQ 0200 


#RM.DC2,-(SP) 


#1,-(SP) 


—--------—— 
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GLOBAL SUBROUTINES SECTION 


006024 


006024 010600 


006026 
0C6026 


006026 


006026 104416 


006030 


006030 062706 000004 


MS$GNINS <BISB-— ,(SP)> 
NDC 


-ENDC 

M$GNINS <MOV SP,RO> 

-IF LT SVCINS 

MOV SP,RO 

-MEXIT 

-ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 


SP,RO 


«NLIST 
-ENDC 
M$SVC = C$PNTS 
-MCALL MS$GNINS,M$TSTLAB 
M$TSTLAB 


-MCALL_ M$TLABEL,M$INCR 
-IIF LT TSTSTMAC, .MEXIT 


° 10 
a trae” \TSTESTNUN, \TSTSTSEQ 


EQ 
M$GNINS <TRAP  C$PNTS> 


PNTS 
MEXIT 
- ENDC 
-IF EQ SVCINS 
TRAP CS$PNTS 
-MEXIT 
-1Ff ST SVCINS 
oA SST 
«NLIST 


-ENDC 
. IRP N,<\TS$ARGCNT*2+2> 
MSGNINS <ADD #N, SP> 


M$GNINS <ADD #4, SP> 
-IF LT SVCINS 

ADD #4 ,SP 
. EN 

-IF EQ SVCINS 

ADD 

»MEXIT 

- ENDC 

-IF GT SVCINS 
«LIST 


#4,SP 


«NLIST 
-ENDC 


TRAP 


ADD 


SP,RO 


CS$PNTS 


#4 ,SP 


SEQ 0201 
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GLOBAL SUBROUTINES SECTION 


= 
»MEXIT 
~ENDC 


-IF B <> 
MSPRINT CSPNTS,ARM.DC2,<> 
IF <> 
MSPRINT CS$PNTS,4RM.DC2,<>,<> 
<> 
MSPRINT CSPNTS,ARM.DC2,<>,<>,<> 
<> 
MSPRINT C$PNTS,ARM.DC2,<>,<>,<>,<> 
. <> 
MSPRINT C$PNTS,ARM.DC2,<>,<>,<>,<>,<> 
. <> 
wry 9 CSPNTS,ARM.DC2,<>,<>,<>,<>,<>,<> 


‘ <> 
MEPRINT CSPNTS,ARM.DC2,<>,<>,<>,<>, <>, <>, <> 


-EN 
MSPRINT C$PNTS,ARM.DC2,<>,<>,<>, <>, <>,<>,<>,<> 
os 006034 000410 BR 10$ 


26 006036 3$: PRINTB) #RM.DCX 3 UNKNOWN COMPLETION CODE 
-MCALL M$PRINT 
-IF B #RM.DCX 
«ERROR ;MISSING FORMAT 


oar 
096036 M$PRINT CSPN TBA 
.MCALL MSCOUNT pers *MSGNINS. MS$SVC 
000001 TSARGCNT=1 
ag TSARGCNT ,, <>, <>, <>, <>, <>, <>, <>, <> 


I 
te TSARGCNT, <>, <>, <>, <>,<>,<>,<>,<> 





“IF NB <> 

~~ seetinammsits 

. IRP N,<\TSARGCNT> 

M$PUT #N,A#RM.DCX,<>,<>,<>,<>,<>,<>,<>,<> 


-ENDM 

M$PUT #1,4RM.DCX,<>,<>,<>,<),0,<>,<>,<> 
-MCALL M$PUT1 

.I1F NB <A#RM.DCX> 

M$PUT <ARM.DCKX>,<>,<>,<>,<>,<>, <>, <>, <> 


CZUDEAO PDP=11 UDA D 


ISK 
GLOBAL SUBROUTINES SECTION 


006036 


006036 


006036 012746 010027 


006042 


006042 


006042 012746 000001 
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-MCALL M$PUT1 
<> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


-IF B 
MSGNINS <MOV A#RM.DCX,=(SP)> 
-IF LT SVCINS 


MOV #RM.DCX,—(SP) 
-MEXIT 


- ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

-IF GT SVCINS 

~LIST 


#RM.DCX,=(SP) 


MOV 
«NLIST 


“IF DIF B.<ARM.DCX> 
“ERROR :ILL. ARG. ‘#RM.DCX'’ ONLY 'B'' IS ALLOWED. 


C 
MSGNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


NB ie 
# 
-MCALL M$GNINS 
IF 8 
M$GNINS <MOV 
-IF LT SVCINS 
MOV #1,-(SP) 
-MEXIT 
~ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 


#1,-(SP)> 


#1,-(SP) 


MOV 
«NLIST 
-ENDC 


FF 

-IF DIF B,<#1> 

ERROR ;ILL. ARG. '#1°' ONLY ‘'B'' IS ALLOWED. 
»MEXIT 


- ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


SEQ 0203 


#RM.DCX,-(SP) 


#1,-(SP) 


-—------ 
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CZUDEAO PDP=11 UDA DI 
GLOBAL SUBROUTINES SE 


006046 


006046 010600 


006050 
006050 


006050 


006050 104414 


006052 


006052 062706 


SK 
CT 


10N 


000004 


- ENDC 


- ENDC 
M$GNINS <MOV 
-IF LT SVCINS 


-ENDC 

-IF EQ SVCINS 
MOV 

»MEXIT 


-ENDC 
-IF GT SVCINS 
oL IST 


-ENDC 
M$SVC C$PNTB 


-MCALL MS$GNINS ,MSTSTLAB 
MS$TSTLAB 


L 
-MCALL_ M$TLABEL.MSINCR 
-1IF LT TSTSTMAC, .MEXIT 


\TSTESTNUN, \TSTSTSEQ 


«RADIX 
M$INCR TSTSTSEQ 


-MEXIT 

- ENDC 

-IF EQ SVCINS 
TRAP 

-MEXIT 


- ENDC 
-IF GT SVCINS 
«LIST 


ENDC 


"IRP —sON, < \T$ARGCNT*2+2> 


M$GNINS <ADD 

- ENDM 

M$GNINS <ADD 

-IF LT SVCINS 

-EN 

-IF EQ SVCINS 
ADD 

-MEXIT 

-ENDC 

-IF GT SVCINS 

«LIST 


-ENDC 
-MEXIT 


SP ,RO> 


SP,RO 


«NLIST 


C$PNTB> 


C$PNTB 


«NLIST 


#N,SP> 
#4,SP> 


#4 SP 


«NLIST 


TRAP 


ADD 


SP,RO 


C$PNTB 


#4 ,SP 


SEQ 0204 


CZUDEAO PDP=11 UD 
GLOBAL SUBROUTINE 


“n>Y 
“no 


TION 


27 
28 006056 000137 004734 


-MEXIT 
. ENDC 
MSPRINT 
10$: 
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<> 
C$PNTB,ARM.DCX,<> 

<> 

C$PNTB,ARM.DCX,<>,<> 

<> 

CSPNTB,ARM.DCX,<>,<>,<> 

<> 

CSPNTB,ARM.DCX,<>,<>,<>,<> 

<> 
C$PNTB,ARM.DCX,<>,<>,<>,<>,<> 


<> 
C$PNTB,ARM.DCX,<>,<>,<>,<>, <>, 


<> 
C$PNTB,ARM. DCX, <>, <>, <>, <>, <>, <>, <> 


CS$PNTB, ARM. DCX, <>, <>, <>, <>, <>, <>, <2, 


JMP RSPDNE 





REMOVE UNIT FROM TESTING 


- SEQ 0205 


“ 
ee. 


L_16 
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GLOBAL SUBROUTINES SECTION 

} 006062 016403 000216 
012702 010627 
005703 


000026 


011572 
010302 


~ 006116 


006116 104456 


“006120 


006120 


006120 000005 


FMTERR: MOV HC ..BF2+4(R4) ,R3 
MOV AM. ERO,R2 
TST R3 
BLE 1$ 
CMP R3,AMAXERR 
BGT 1$ 
ADD R3,R3 
MOV TBLERR(R3) ,R3 
BEQ 1$ 
3 MOV R3,R2 
ERRHRD anne RM.ER2 
-MCALL MSERRINS 
MSERRINS 5,.RM.ER1,RM.ER2,CSERHRD 
-MCALL MS$GNINS,M$WORD ,M$TSTLAB 
M$SVC CSERHRD 
-MCALL MSGNINS ,MSTSTLAB 
MSTSTLAB 
-MCALL_ M$TLABEL,.MSINCR 
-IIF LT TSTSTMAC, .MEXIT 
-RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 
MSINCR_ TSTSTSEQ 
MSGNINS <TRAP C$ERHRD> 
-IF LT SVCINS 
TRAP CSERHRD 
er 


- ENDC 
-IF EQ SVCINS 


-MEXIT 


TRAP CSERHRD 


-ENDC 
-IF G7 SVCINS 
IST 


eNLIST 
.ENDC 
-RADIX 10 
-IF NB 5 
— 
-ERROR ;MISSING ERROR-NR 
. ENDC 
MS$WORD \TSERRNUM 
-MCALL M$GNINS 
. IRP N,<5> 
M$GNINS <.WORD N> 
.ENDM 
M$GNINS <.WORD 5> 


IF LT SVCINS 
D 


-WOR 
“ME XIT 


-ENDC 
-IF EQ SVCINS 
. WORD 


5 





GET ERROR # 


POINTER TO DEFAULT ERR MSG 
CHECK ERROR # FOR RANGE 


BAD VALUE 

CHECK HIGH VALUE 

BAD VALU 

MAKE BYTE OFFSET 

GET POINTER TO ERROR MESSAGE 
IF NULL ENTRY = USE DEFAULT 
POINT TO ACTUAL ERROR MESSAGE 


LOG ERR MESS 


TRAP CSERHRD 



















CZUDEAO PDP-11 UDA D 
NES S 


I 
GLOBAL SUBROUTI ECTION 


000010 
006122 


006122 


006122 010270 


006124 


006124 


006124 010324 


14 
e 006126 000137 004710 
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-MEXIT 
-ENDC 
.IF GT SVCINS 
-LIST 


« WORD 
eNLIST 


| 
MSGNINS <:WORD N> 
iSGNINS <.WORD RM.ER1> 
SVCINS 


F EQ SVCINS 
.WORD  RM.ER1 
“IF GT SVCINS 
IST 


«WORD 
eNLIST 


- IRP N,<RM.ER2> 
MSGNINS <.WORD N> 
- ENDM 


MSGNINS <,WORD RM.ER2> 
-IF LT SVCINS 

-WORD RM.ER2 
»MEXIT 

-ENDC 

IF EQ — 

»MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 


RM.ER2 


»NLIST 


JMP RSPDRP ; REMOVE UNIT FROM TESTING 


RM.ER1 


RM.ER2 


SEQ 0207 
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SEQ 0208 


4 RESPONSE ERROR MESSAGES 
3 006132 045 116 045 NORFSP: .ASCIZ \%NZAUNIT %D2%A HAS NOT ye LATELY\ 
4 006202 045 116 045 REMMSG: .ASCIZ \%NZAUNIT %D2%A = REMOVED FROM i hy FOR REMAINDER GF PASS\ 
5 006276 127 122 117 RSPPKE: .ASCIZ \WRONG OPCODE RECEIVED IN MESSAGE PACKET\ 
6 006346 115 105 123 RSPPRE: .ASCIZ \MESSAGE PACKET RECEIVED WITH WRONG REFERENCE NUMBER\ 
? 006432 115 105 123 RSPPNE: .ASCIZ \MESSAGE PACKET RECEIVCD WITH UNKNOWN MESSAGE CODE\ 
; 006514 105 122 122 RSPSTE: .ASCIZ \ERROR STATUS CODE REPORTED IN MESSAGE COMMAND\ 
9 006572 045 116 045 RM.CMP: .ASCIZ \%NZAUNIT %D2%A = CYLINDER %D4%A COMPLETED\ 
12 045 116 045 RM.DNE: .ASCIZ \%NZAUNIT %D2%A = FORMAT ay pee COMPLETED\ 
13 006723 045 116 045 -DIT SCIZ \%NZA TOTAL REVECTORED BLOCKS %D4\ 
14 007005 045 116 045 RM.DIP: .ASCIZ \ZNZA PRIMARY REVECTORS %D4\ 
15 007067 045 116 045 RM.DIS: .ASCIZ \%NZA SECONDARY REVECTORS 2D4\ 
16 007151 045 116 045 RM.D2D: .ASCIZ \ZNZA RCT BLOCKS WITH DATA ERRORS %D4\ 
17 00723 045 116 045 RM.D2H: .ASCIZ \ZNZA RCT BLOCKS WITH HEADER/TIMING ERRORS %D4\ 
18 007315 045 116 045 RM.D3D: .ASCIZ \ZNZA DBN BLOCKS WITH DATA ERRORS %D4\ 
19 007377 045 116 045 RM.D3H: .ASCIZ \ZNZA DBN BLOCKS WITH HEADER/TIMING ERRORS %D4\ 
20 007461 045 116 045 RM.D4D: .ASCIZ \ZNZA XBN BLOCKS WITH DATA ERRORS %D4\ 
21 007543 045 116 045 RM.D4H: .ASCIZ \ZNZA XBN BLOCKS WITH HEADER/TIMING ERRORS %D4\ 
22 007625 045 116 045 RM.RET: .ASCIZ \2NZA BLOCKS RETRIED ON CHECK PASS 4D4\ 
24 007707 045 116 045 RM.DC1: .ASCIZ \%NZA FCT WAS USED TO FORMAT DRIVE\ 
25 007755 045 116 045 RM.DC2: .ASCIZ \ZNZA FCT WAS NOT USED TO FORMAT DRIVE\ 
26 010027 045 116 045 M.DCX: :ASCIZ \%N%A**** UNKNOWN COMPLETION CODE RETURNED ***«\ 
28 010106 045 116 045 RM.FMO: .ASCIZ \ZNZA UNKNOWN FORMAT COMPLETION MODE\ 
29 010156 045 116 045 RM.FM1: .ASCIZ \%NZA FORMAT COMPLETED USING FCT\ 
HY 010222 045 116 045 RM.FM2: .ASCIZ \%N%A FORMAT COMPLETED WITHOUT FCT\ 4 
4 010270 125 104 101 RM.ER1: .ASCIZ \UDA FORMATTER ERROR OCCURED\ 
$e -EVEN 
36 010324 BGNMSG RM.ER2 ; FORMATTER RETURNED ERROR 
MCALL _M$PUSH,MS$INCR,MSGNGBL 
000040 i SMSG=FSBGN 
010324 MSPUSH TS$NS, My 3345 of FSMSG 
-MCALL MSINCR,MSSET 
010324 MSINCR _TSNESTLEV 
000000 TSNESTLEV=TSNESTLEV+1 
010324 MSSETS TSNS,\TSNESTLEV,FSMSG 
11 $NSO= G 
010006 TS$MSG=T$TAGNUM 
010324 MSINCR TSTAGNUM 
010007 T$TAGNUM=T$TAGNUM+1 
010324 MSGNGBL RM.ER2 
-MCALL MSGEN 
- IF NB,RM.ER2 
- IF NB, 
MSGEN RM.ER2,:,SVCGBL, 
IF B, 
010324 M$GEN RM.ER2,:,SVCGBL,< > 
-IF LE SVCGBL 
010324 RM.ER2:: 





cCce—«_-—_ 
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CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 43-1 


GLOBAL SUBROUTINES SECTION 


37 010324 


010324 


| 
000001 
010324 


000002 


010324 
010324 


010324 


010324 


010324 


010324 016446 000216 





»MEXIT 
-ENDC 
»LIST 


CN 
M$COUNT 
-IF NB < 
M$COUNT 


RM.ER2:: 


«NLIST 

PRINTB) #RM.ER3,HC.BF2+4(R4) 
MSPRINT 

#RM.ERS 

sMISSING FORMAT 


<HC .BF 2+4(R4)> 
C$PNTB,ARM.ER3 


<> 
C$PNTB,ARM.ER3,<HC .BF 2+4(R4)> 


L ae -M$PUT ,MSGNINS ,M$SVC 


pate <HC ..BF 2+4(R4)>, <>, <>, <>, <>, <>, <>, <> 
TSARGCNT, <>, <>, <>,,6>,<>,0,0> 


- ENDC 
IF NB <HC.BF2+4(R4)> 


M$GNINS 


-IF LT SV 


MOV 
-MEXIT 


.ENDC 
IF EQ SVCINS 
MOV 


-MEXIT 


eLIS 


i *~ genlahbnaaa ar che, 


N,<\T$SARGCNT> 
#N,ARM.ER3,<HC BF 2+4(R4)>,<>, <>, <>, <>, <>, <>, > 


FE AS AE LF ORD AE OO 
PUT 


<A#RM.ER3> 
ht ERS, ,<HC .BF 2+4(R4)>, <>, <>, <>, <>, <>, <,<> 


M$PUT 

<HC .BF 2+4(R4) > 

<HC .BF 2+4(R4)>, <>, <>, <>, <>, <>, <>, <>, <> 
M$PUT1 

<> 

<>, <>, <>, ,,2,0O,0O,0> 


<HC .BF 2+4(R4)> 

HC ..BF 2+4(R4) 

MSGNINS 

oy HC .BF2+4(R4) ,-(SP)> 


CINS 
HC .BF 2+4(R4) ,~(SP) 


HC .BF 2+4(R4) ,-(SP) 


-ENDC 
-1F GT SVCINS 


SEQ 0209 


i 


- 
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| 


010334 


010334 


010334 012746 000002 


UDA D 
NES S 


I 
E 


SK 
CT 


eh 
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ION 


| 
| 
010330 
010330 
010330 012746 010420 


-NLIST 


-IF DIF B,<HC.BF2+4(R4)> 
ZILL. ARG. ‘HC.BF2+4(R4)"" ONLY *B’' IS ALLOWED. 


-(SP)> 
~(SP)> 


E 
M$GNINS <CLR 
— <BISB 


IF NB <ARM.ER3> 

M$PUT1 #RM.ER3 
M$GNINS 

-IF B 

MSGNINS <MOV 


#RM.ER3,-(SP)> 
-IF LT SVCINS 
MOV #RM.ER3,-(SP) 
-MEXIT 


-IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 
IST 


#RM.ER3,-(SP) 


»NLIST 


-IF DIF B,<ARM.ER3> 
ILL. ARG. ‘#RM.ER3'' ONLY ‘B’’ IS ALLOWED. 


E 
M$GNINS <CLR 
4 ee <BISB 


-(SP)> 
(SP)> 


.IF NB <A2> 
M$PUT1 

-MCALL M$GNINS 
.IF B 

M$GNINS <MOV 
-IF LT SVCINS 
MOV #2,-(SP) 
-MEXIT 

- ENDC 

IF EQ SVCINS 

MOV 

-MEXIT 

- ENDC 

-IF GT SVCINS 
LIST 


as 
Nm 


#2,-(SP)> 


#2 ,~-(SP) 


SEQ 0210 


HC .BF 2+4(R4) ,=(SP) 


#RM.ER3,-(SP) 


#2,-(SP) 


nm -_— ~ 


| 


| 0 1 
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- ENDC 
M$GNINS <CLR -(SP)> 
— <BISB-,(SP)> 


| .NLIST 
. ENDC 

j IF F 

| "IF DIF B,<#2> 

ERROR sILt. ARG. ‘‘#2°' ONLY 'B'' IS ALLOWED. 
| "MEXIT 

| 


-ENDC 
010340 M$GNINS <MOV SP,RO> 
nd LT SVCINS 


SP,RO 
-MEXIT 
~ENDC 
-IF EQ SVCINS 
010340 010600 MOV SP,RO 
-MEXIT 


- ENDC 
IF GT SVCINS 
Lise 
MOV SP,RO 
eNLIST 


- ENDC 
010342 M$SVC C$PNTB 
-MCALL MS$GNINS,M$TSTLAB 
010342 MSTSTLAB 
-MCALL_ M$TLABEL,.M$INCR 
“1IF LT TSTSTMAC, .MEXIT 
«RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEG 
«RADIX 8 
M$INCR TSTSTSEQ 
010342 MSGNINS siya C$PNTB> 
N 


- ENDC 

IF EQ SVCINS 
010342 104414 TRAP C$PNTB 
-MEXIT 


-ENDC 
-IF GT SVCINS 
o IST 


TRAP C$PNTB 
eNLIST 
-ENDC 


"IRP  —ON, <\ TSARGCNT*2+2> 
M$GNINS <ADD #N,SP> 


M$GNINS <ADD #6, SP> 
hho LT SVCIN = 


#6,5S 
-MEXIT 
~ENDC 
IF €Q SVCINS 
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010344 06270€ 000006 ADD #6,SP 
»MEXIT 


~ENDC 

IF GT SVCINS 
| LIST 
ADD #6,SP 
»NLIST 


<> 
M$PRINT C$PNTB,A4RM.ER3,<HC.BF2+4(R4)>,<> 


I <> 
MSPRINT C$PNTB,ARM.ER3,<HC.BF2+4(R4)>,<>,<> 


, <> 
MSPRINT C$PNTB,A#RM.ER3,<HC.BF2+4(R4)>,<>,<>, <>, 


| 

| 

| “ 

MSPRINT C$PNTB,ARM.ERS,<HC .BF2+4(R4)>,<>,<>,<> 

| <> 

MS$PRINT C$PNTB,ARM.ER3,<HC .BF2+4(R4)>,<>, <>, <>, <>, <> 


<> 
MSPRINT C$PNTB,ARM.ER3,<HC.BF2+4(R4)>,<>,<>, <>, <>, <>, <> 


EN 
M$PRINT C$PNTB,ARM.ER3,<HC.BF2+4(R4)>, <>, <>, <>, <>, <>, <>, <> 
38 010350 PRINTB #RM.ER4,HC.BF2+6(R4) 
-MCALL M$PRINT 
ar 8 ARM.ERS 
-ERROR ;MISSING FORMAT 
-MEXIT 
-ENDC 
-IF B  <HC.BF2+6(R4)> 
MSPRINT C$PNTB,ARM.ERG 
-MEXIT 
-ENDC 
ar 8 <> 
010350 MSPRINT C$PNTB,ARM.ER4S,<HC.BF2+6(R4)> 
-MCALL MS$COUNT ,MSPUT ,MSGNINS ,M$SVC 
000001 TSARGCNT=1 
010350 M$COUNT T$ARGCNT,<HC.BF2+6(R4)>, <>, <>, <>, <>, <>, <>, <> 


-IF NB <> 
M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


~EN 
.1F NB <HC.BF2+6(R4)> 
000002 TSARGCNT=TSARGCNT +1 


NDC 
. IRP N,<\TSARGCNT> 


ten ARGS. Ln EAL Be OES YB CAR OE OE EES HT: ON sh SAA © NRE Ce NB oe Pet 


| 
i 


| 
| 
| 
| 
| 





-————— 
| 
| 
| 
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010350 
010350 
010350 
010350 
010350 


010350 016446 000220 


010354 


010354 


010354 012746 010472 
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M$PUT #N,ARM.ERS,<HC.BF2+6(R4)>,<>,<>,<>,<>,<>, <>, <> 
MSPUT #2,4RM.ERS,<HC.BF2+6(R4)>,<>,<>, <>, <>, <>, <>, <> 
MSPUT1 


.IF NB <ARM.ER4> 
MSPUT <ARM.ERG>,<HC.BF2+6(R4)>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
-IF NB <HC.BF2+6(R4)> 
MSPUT <KC.BF2+6(R4)>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
<> 


M$PUT <>,<>,<>,<>,<>,<>,<>,<,> 


-IF NB <HC.BF2+6(R4)> 
M$PUT1 HC.BF2+6(R4) 
M$GNINS 


-IF B 

ME$GNINS <MOV HC ..BF2+6(R4) ,=(SP)> 
IF LT SVCINS 

MOV HC .BF 2+6(R4) ,=(SP) 


-MEXIT 
- ENDC 
IF EQ SVCINS 
MOV HC .BF 2+6(R4) ,=( SP) 
-MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


»NLIST 


-IF DIF B,<HC.BF2+6(R4)> 
-ERROR ;ILL. ARG. *HC.BF2+6(R4)** ONLY ‘B’’ IS ALLOWED. 


MS$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


-IF NB <ARM,ER4> 
M$PUT1 #RM.ER4 
“2 Y M$GNINS 


MSGNINS <MOV #RM.ERS,-(SP)> 

-IF LT SVCINS 

MOV #RM.ER4,-(SP) 

-MEXIT 

- ENDC 

IF EQ SVCINS 

MOV 

-MEXIT 

-ENDC 

IF GT SVCINS 
IST 


#RM.ER4,-(SP) 


SEQ 0213 


HC .BF2+6(R4) ,-(SP) 


#RM ERG ,=(SP) 


-—__——_--————- - 


_CZUDEAO PDP=11 UDA DI 
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010360 


010360 


010360 912746 000002 


010364 


010364 010600 


010366 
010366 
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eNUIST 


: DIF B,<ARM.ERS 


ZILL. ARG. ° eRMLERG ONLY ‘B"' IS ALLOWED. 


-(SP)> 
»(SP)> 


C 
M$GNINS <CLR 
M$GNINS <BISB 


<f#2> 

#2 

' MSGNINS 
MSGNINS <MOV 


-IF LT SVCINS 
MOV iT #2,-(SP) 


#2,-(SP)> 


- ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


#2,-(SP) 


eNLIST 


<#2> 
HLL. ARG. ‘#2"' ONLY 'B"' IS ALLOWED. 


- ENDC 

M$GNINS <CLR 
M$GNINS <BISB 
-ENDC 


- ENDC 

M$GNINS <MOV 

-IF LT SVCINS 

MOV SP,RO 

-MEXIT 

- ENDC 

-1F EQ SVCINS 

MOV 

»MEXIT 

-ENDC 

IF GT SVCINS 
IST 


-(SP)> 
~(SP)> 


SP,RO> 


SP,RO 


»NLIST 
- ENDC 
M$SVC  C$PNTB 
-MCALL M$GNINS ,M$TSTLAB 


MSTSTLAB 
-MCALL M$TLABEL .M$INCR 


#2,-<SP) 


SP,RO 


SEQ 0214 


ee = 
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TION 


“nPY 
“no 


010366 


010366 


010370 
010370 


104414 


062706 000006 


TIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEC 


«RADIX 8 

MS$INCR TS$TS7SEQ 
M$GNINS <TRAP (C$PNTB> 
-IF LT SVCINS 

TRAP C$PNTB 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
TRAP C$PNTB 
-MEXIT 


- ENDC 
-1F GT SVCINS 
-LIST 
-NLIST 
ENDC 


"IRP  —sN, <\ TSARGCNT*2+2> 
M$GNINS <ADD — #N, SP> 


. ENDM 

M$GNINS <ADD #6,SP> 

-IF LT SVCINS 

ADD #6,SP 

-MEXIT 

- ENDC 

IF EQ SVCINS 

ADD 

-MEXIT 

-ENDC 

-IF GT SVCINS 
IST 


#6,SP 


»NLIST 


oo B <> 

MSPRINT C$PNTB,4RM.ERG,<HC.BF2+6(R4)>,<> 

‘ B <> 

MSPRINT C$PNTB,ARM.ERS,<HC.BF2+6(R4)>,<>,<> 

S : => 

MSPRINT C$PNTB,ARM.ERS, <HC.BF2+6(R4)>,<>,<>,<> 

ot <> 

MSPRINT C$PNTB,ARM.ERS,<HC.BF2+6(R4)>,<>,<>,<>,<> 


. B <> 
M$PRINT CS$PNTB,#RM.ERS,<HC BE 2+6(R4)>, <>, <>, <>, <>, <> 


TRAP 


ADD 


C$PNTB 


#6,SP 





te 
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| ENDC 
j IF B <> 

nit CSPNTB,ARM.ER4, <HC BF 2+6(R4)>, <>, <>, <>, <>, <>, > 

. x 
| -ENDC 
MSPRINT C$PNTB,ARM.ER4G,<HC .BF2+6(R4)>, <>, <>, <>, <>, <>, <>, <> 

39 010374 PRINTB #RM.ERS,R2 


-MCALL M$PRINT 
-IF B  #RM.ERS 
ERROR ;MISSING FORMAT 


| -MEXIT 
~ENDC 
| "IF B  <R2> 
MSPRINT C$PNTB,ARM.ERS 
| -MEXIT 
.ENDC 
: -IF B 
010374 MS$PRINT CSPNTB, ARM.ERS,<R2> 
-MCALL MSCOUNT , M$PUT, iSGNINS. M$SVC 
000001 TSARGCN 
010374 MSCOUNT. TSARGCNT, <R2>, <>, <>, <>, <>,<,<>,0> 


-1F NB < 
MSCOUNT ee er ar eee 
C 


IF NB <R2> 
000002 y ~ epiteantpee i 
-IRP N,<\TSARGCNT> 
M$PUT #N,ARM.ERS,<R2>,<>,<>,<>,<>,<>,<>,0 


010374 M$PUT #2,4RM.ERS,<R2>,<>,<>,<>,<>,<>,<>,<> 
M$PUT 1 


.IF NB <ARM.ERS> 
010374 M$PUT <ARM.ERS>,<R2>,<>,<>,<>,<>,<>,<>, <> 
-MCALL M$PUT1 
-IF NB <R2> 
010374 MSPUT <R2>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
-IF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


‘ NB <R2> 
010374 MS$PUT1 R 
ny MSGNINS 


-IF B 
010374 M$GNINS <MOV R2,-(SP)> 


es C 
IF EQ SVCINS 

010374 010246 MOV R2,-(SP) 
»MEXIT 


- ENDC 
-I1F GT SVCINS 
. IST 


MOV 


R2,-(SP) 





.-—- 


- CZUDEAO 
GLOBAL S 





PDP=11 UDA 
NES 


DI 
UBROUT I SECTION 


010376 


010376 


010376 012746 010545 


019402 


010402 


010402 012746 000002 
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eNLIST 


IF DIF B,<R2> 
-ERROR ;ILL. ARG. ‘R2°* ONLY ‘8B’ IS ALLOWED. 


M$GNINS <CLR -(SP)> 
M$GNINS <BISB-~— ,(SP)> 


“IF NB ARM. ERS> 
-MCALL MSGNINS 

MSGNINS <MOV —— #RM. ERS, -(SP)> 
LIF LT SVCINS 

MOV #RM.ERS,-(SP) 

.MEXIT 


» ENDC 
-IF EQ SVCINS 
MOV 
»MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


= 
ad 
Uv 
| = 
“4 
— 
R 


#RM.ERS,=(SP) 


»NLIST 
-ENDC 


IFF 
LIF DIF B,<#RM.ERS> 
“ERROR ;1LL. ARG. ‘#RM.ERS'’ ONLY ‘B'' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
MSGNINS <BISB ~(SP)> 


-IF NB <f2> 
M$PUT1 #2 
RY M$GNINS 


MS$GNINS <MOV #2,-(SP)> 

-IF LT SVCINS 

MOV #2,-(SP) 

»MEXIT 

- ENDC 

-IF EQ SVCINS 

MOV 

»MEXIT 

- ENDC 

-IF GT SVCINS 
IST . 


#2,-(SP) 


»NLIST 


SEQ 0217 


#RM.ERS,-(SP) 


#2,-(SP) 





pn a ee 
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ZUDEAD PDP=11 UDA “a Ra. 


¢ I 
_ GLOBAL SUBROUTINES SE 
.ENDC 


HS 

IF DIF B,<#2> 

~ERROR ILL. ARG. ‘#2°' ONLY ‘B’’ IS ALLOWED. 
MEXIT 


“ENDC 
M$GNINS <CLR = =(SP)> 
MSGNINS <BISB- _, (SP)> 
| otN 
-ENDC 
010406 M$GNINS <MOV _— SP, RO> 
| .IF LT SVCINS 
| MOV SP RO 
| .MEXIT 
| .ENDC 
-IF EQ SVCINS 
010406 010600 MOV SP.RO 
.MEXIT 


- ENDC 
-IF GT SVCINS 
IST 


-NLIST 
- ENDC 
010410 M$SVC C$PNTB 
-MCALL MS$GNINS,M$TSTLAB 
010410 MSTSTLAB 


-MCALL_ M$TLABEL,.M$INCR 
-TIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
MSTLABEL \TSTESTNUN, \T$TSTSEQ 
-RADIX 8 
M$INCR TSTSTSEQ 
010410 M$GNINS ae C$PNTB> 


.E C 
-IF EQ SVCINS 

010410 104414 TRAP C$PNTB 
-MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


»NLIST 


DC 
. IRP N,<\TSARGCNT *2+2> 
M$GNINS <ADD AN, SP> 
ENDM 


010412 M$GNINS <ADD #6,SP> 
-IF LT SVCINS 
ADD #6 ,SP 
-MEXIT 
-ENDC 
IF EQ SVCINS 
010412 062706 000006 ADD #6,SP 





TRAP 


SP,RO 


C$PNTB 


SEQ 0218 


—__ — 
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40 010416 
010416 


010416 
010416 


010416 
010416 
010416 


roe 


UDA D 
NES S 


000011 
177777 


ISK 
ECT 


a 
4 pater MACRO V04.00 23=JUL=81 15:27:47 PAGE 43-11 


-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 


ADD 
eNLIST 


if 6 & 

MSPRINT C$PNTB,4RM.ERS,<R2>,<> 

a eS. =e 

MSPRINT C$PNTB,ARM.ERS,<R2>,<>,<> 

are ose 

MSPRINT C$PNTB,ARM.ERS,<R2>,<>,<>,<> 

war = 

MSPRINT CS$PNTB,ARM.ERS,<R2>,<>,<>,<>,<> 
are = 

MSPRINT CSPNTB,ARM.ERS,<R2>,<>,<>,<>,<>,<> 


-IF B <> 
MSPRINT C$PNTB,ARM.ERS,<R2>,<>,<>,<>,<>,<>,<> 


-E 

MS$PRINT lint etm eid i eh in ti et 
NDMS 

-MCALL MSPOP,MSGNTAG MSSVC ,MSENDERR 

M$POP TS$NS,TSNESTLEV,TSTEMP 

-MCALL M$GETS,MSDECR 

-IF LT TSNESTLEV 


-ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 
»MEXIT 

-ENDC 

MSGETS TSNS,\TSNESTLEV,TSTEMP 

TSTEMP=TSNSO 


M$DECR TS$NESTLEV 
TSNESTLEV=TSNESTLEV~1 
-IF EQ FSMSG-TSTEMP 
MSGNTAG L,T$$MSG 
-MCALL MSGEN 
M$GEN_  _L,\T$$MSG,SVCTAG 
E SVCTAG 


as is | 10006: 


#6, SP 


SEQ 0219 


mM 1 
| CZUDEAO PDP=-11 UDA DISK FORMATT MACRO V04.00 23=JUL-81 15:27:47 PAGE 43-12 SEQ 0220 
GLOBAL SUBROUTINES SECTION 


01000C S$LSYM=TS$LSYM 

010416 M$SVC C$MSG 

-MCALL MS$GNINS ,MSTSTLAB 
010616 M$TSTLAB 


-MCALL_ MSTLABEL .MSINCR 
‘sok TSTSTMAC, oMEXIT 


1 
MSTLABEL \TSTESTNUN, \TSTSTSEO 
MS$INCR TSTSTSEQ 
C$MSG> 


010416 MSGNINS <TRAP 
oif UT gets 


| 
| 
| 
| 
| 
| 
| -IF €Q SVCINS 
010416 104423 TRAP —- C$MSG 
| .MEXIT 
-ENDC 
| .IF GT SVCINS 
.LIST 
TRAP —- C$MSG 
-NLIST 
.ENDC 
000041 1 SMSG=F SEND 
MSENDERR ENDMSG, TS$TEMP 


41 
42 010420 045 


101 040 RM.ER3: .ASCIZ \ZA ERROR NUMBER REPORTED WAS %D2\ 
43 010472 045 116 045 RM.ER4: .ASCIZ \%NZA ERROR CODE WAS %D6%A DECIMAL \ 
44 010545 045 116 045 RM.ERS: .ASCII \%NZA ERROR NUMBER MEANS: \ 
45 010606 045 116 045 eASCIZ \%NZA 27\ 
47 010627 105 122 122 M.ERO: .ASCIZ ‘‘ERROR NUMBER NOT IN CURRENT TABLES'’ 
48 010672 107 105 124 ER1: .ASCIZ ‘''GET STATUS FAILURE** 
49 010715 123 104 111 M.ER2: .ASCIZ ‘'SDI SEND ERROR’* 
50 010734 125 116 123 M.ER3: .ASCIZ ‘UNSUCCESSFUL SDI COMMAND" 
51 010765 123 104 111 M.ER4: .ASCIZ ‘'SDI RECEIVE ERROR®' 
52 011007 125 116 111 M.ER5: .ASCIZ ‘UNIBUS READ ERROR"’ 
53 011031 106 117 122 M.ER6: .ASCIZ A ogi at a cone ERROR"’ 
54 011070 116 117 116 M.ER7: .ASCIZ ‘NON-EXISTANT UNIT NUMBER’ 
55 011121 104 102 116 M.ER8: .ASCIZ ‘DBN/ XBN. FORMAT ERROR (FORMAT XFC FAILED)** 
56 011172 106 103 124 ER9: .ASCIZ ‘FCT CHECK ERROR’ 
57 011212 123 105 105 M.ER10: .ASCIZ ‘'SEEK ERROR’ 
58 011225 122 103 124 M.ER11: .ASCIZ ‘RCT CHECK ERROR'’ 
59 011245 114 102 116 M.ER12: .ASCIZ ‘BN FORMAT ERROR (FORMAT XFC FAILED)"* 
60 011312 106 103 124 M.ER13: .ASCIZ ‘CT WRITE ERROR’ 
61 011332 122 103 124 M.ER14: .ASCIZ ‘RCT READ ERROR’ 
62 011351 122 103 124 M.ER15: .ASCIZ ‘RCT WRITE ERROR’’ 
63 011371 122 103 124 M.ER16: .ASCIZ ‘RCT FULL" 
64 011402 106 103 124 M.ER17: .ASCIZ ‘CT READ on 
65 011421 106 103 124 M.ER18: .ASCIZ ‘FCT cog gy 
66 011442 106 103 124 M.ER19: .ASCIZ ‘CT DOWN LINE LOAD, ERROR (FCT BLOCK NOT AVBL . Ms 
67 011521 104 122 111. M.ER20: .ASCIZ ‘DRIVE INIT TIMEOUT 
68 000000 M.ER21 = 0 
69 011544 1 105 114 M.ER22: .ASCIZ ‘'SELECT GROUP FAILURE'’ 








eS 


“CZUDEAO PDP=11 UDA DI 
“GLOBAL SUBROUTINES SECT! 
| 
| 70 
| 7 
j 72 
7% 011572 010627 TBLERR: 
| 74 011574 010672 010715 010734 
75 011614 011172 011212 011225 
76 011634 011402 011421 011442 


| 78 000026 MAXERR 


N 1 
a aap: MACRO V04.00 23=JUL=81 15:27:47 PAGE 43-13 


M.ERO POINTERS TO, ERROR MESSAGES 
M.ER1 ,M.ER2 .M.ER3 ,M.ERG .M. ers .M.ER6 , 8 
M.ER9 °M.ER10.M.ER11.M.ER12.M.ER13.M.ER14, an ERIS. M.ER16 
M.ER17.M.ER18.M.ER19.M.ER20.M.ER21 .M.ER22 


<.-TBLERR=2>/2 


SEQ 0221 


B 2 
K FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 44 


CZUDEAO PDP=11 UDA DISK 
GLOBAL SUBROUTINES SECTION 
;RUNDM 
3 ; LOAD AND RUN A DM PROGRAM IN THE CONTROLLERS. 
| : 3 INPUTS: 
6 : TSTTAB = POINTER TO FIRST CONTROLLER TABLE 
» IMPLICIT INPUTS: 
9 . : DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 
10 DMTRAD = DM TRANSFER ADDRESS 
af : DMTRLN = TRANSFER LENGTH OF MAIN DM PROGRAM 
13 OUTPUTS: . 
1g ; NONE 
16 “ALL REGISTERS ARE USED AND PREVIOUS CONTENTS DESTROYED. 
18 : 
19 011650 005037 002220 RUNDM: LR URNING ; COUNT # RUNNING UNITS 
21 :LOAD DM PROGRAM INTO EACH CONTROLLER 
23 011654 012705 002202 MOV ATSTTAB,RS : POINTER TO FIRST CONTROLLER TABLE 
24 011660 ASSUME C.NEXT,£Q,0 
HE EQ,<C.NEXT>=<0> 
- ERROR ASSUMPTION VIOLATED 
25 011660 016505 000000 LDDM: MOV C.NEXT(R5) RS : GET NEXT CONTROLLER TABLE ADDR 
26 011664 001424 BEQ RUNDMX ‘ EXIT IF NO MORE 
27 011666 016537 000004 002074 MOV C.UNIT(RS) ,L$LUN + RECORD WHICH LOGICAL UNIT IN USE 
28 011674 005065 000014 CLR C.FLG(RS) [CLEAR ALL FLAGS 
29 011700 032765 100000 000004 BIT #CT.AVL,C.UNIT(RS) ‘SEE IF UNIT TO BE TESTED 
30 011706 001014 BNE LDERR ‘IF NOT, DON'T LOAD THIS UNIT 
31 011710 004737 003444 CALL  LOADDM [LOAD THE DM PROGRAM 
32 011714 001411 BEQ LDERR ‘IF AN ERROR, GO TO NEXT CONTROLLER 
33 011716 052765 000002 000014 BIS #CT.RN,C.FLG(RS) ‘ SET PROGRAM RUNNING BIT 
34 011724 004737 003110 CALL  GETDMR + SEND THE 'RECEIVE' COMMAND 
35 011730 005237 002220 INC URNING > COUNT # UNITS RUNNING 
36 011736 LDNEXT: 
37 011734 000751 BR LDDM : DO NEXT CONTROLLER 
38 011736 000207 RUNDMX: RETURN 
40 011740 LDERR: ERRDF  203,LDERRM : LOG ERROR 
“MCALL MSERRINS 
011740 MSERRINS 203. LDERRM, , CSERDF 
.MCALL MSGNINS ,M$WORD ,M$TSTLAB 
011740 M$SVC_ C$ERDF 
.MCALL M$GNINS,M$TSTLAB 
011740 MS$TSTLAB 
-MCALL MSTLABEL,MSINCR 
“TIF LT T$TSTMAC. .MEXIT 
"RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
.RADIX 8 
M$INCR T$TSTSEQ 
011740 M$GNINS <TRAP  C$ERDF> 


fe a ee a 


SEQ 0222 


|  : 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 44-1 SEQ 0223 
GLOBAL SUBROUTINES SECTION 
4 LT SVCINS 
TRAP CSERDF 
MEXIT 
- ENDC 
-IF EQ SVCINS 
011740 104455 TRAP CEERDF 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 
TRAP CSERDF 
«NLIST 
- ENDC 
000012 «RADIX 10 
-IF NB 203 
000313 $- peter 
-ERROR ;MISSING ERROR-NR 


011742 M$WORD \TSERRNUM 
-MCALL MSGNINS 


- IRP N,<203> 
MSGNINS <.WORD N> 
011742 M$GNINS <.WORD 203> 
. SVCINS 


“IF EQ SVCINS 
011742 000213 .WORD 203 
“IF GT SVCINS 


-WORD 203 
«NLIST 


000010 -RADIX 
011744 M$WORD LDERRM 


. IRP N,<LDERRM> 
M$GNINS <.WORD N> 


-ENDM 
011744 MSGNINS <.WORD LDERRM> 
-IF LT SVCINS 
«WORD  LDERRM 
»MEXIT 
-ENDC 
IF EQ SVCINS 
011744 011752 -WORD LDERRM 
-MEXIT 


-ENDC 
IF GT SVCINS 
»LIST 
-WORD LDERRM 





| CZUDEAO PDP=11 UDA D 


D2 
ISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 44-2 SEQ 0224 
GLOBAL SUBROUTINES SECT 


ION 
«NLIST 
.ENDC 
Si 4 
M$wORD 
ENDC 
IF NB 

M$WORD 
IFF 

011746 M$WORD 0 
-MCALL MS$GNINS 
. IRP N,<0> 
MSGNINS <.WORD N> 

011746 MSGNINS <.WORD 0> 
-IF LT SVCINS 
-WORD 0 
-MEXIT 
-ENDC 
-IF EQ SVCINS 

011746 000000 .- WORD 0 
-MEXIT 
.ENDC 
-IF GT SVCINS 
LIST 

.~ WORD 0 
-NLIST 
-ENDC 
-ENDC 
rt 011750 000771 BR LDNEXT ; DO NEXT CONTROLLER 
rs 011752 125 116 101 LDERRM: .ASCIZ \UNABLE TO DOWN LINE LOAD UDA\ 


45 - EVEN 





E 2 
/CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 45 SEQ 0225 
|GLOBAL SUBROUTINES SECTION 
| } = SNDCMD 
“SEND A COMMAND TO THE UDA. 
i “CLEAR THE RESPONSE PACKET. MARK BOTH PACKETS AVAILABLE TO THE 
5 “UDA. SET COMMAND ISSUED BIT IN CONTROLLER TABLE AND INITIALIZE 
é “TIMEOUT COUNTER. 
8 : INPUTS: 
9 RS = CONTROLLER TABLE ADDRESS 
16 ‘OUTPUTS: 
1" : RG = ADDRESS OF HOST COMM AREA 
13 
12 012010 SNDCMD: PUSH <RO,R1> 
~IRP X,<RO,R1> 
MOV X,-(SP5 
END 
012010 010046 MOV RO,-(SP) 
012012 010146 MOV R1.-(SP) 
15 012014 016504 000010 MOV C.RING(RS) .R& LOAD R4 WITH HOST COMM AREA ADDRESS 
16 012020 012700 000014 MOV #HC.MPK RO “POINT TO MESSAGE PACKET 
17 012024 060400 ADD R4&.RO 
18 012026 012701 000030 MOV #HC.PSZ/2.R1 :SIZE OF MESSAGE PACKET 
19 012032 005020 SNDC1: CLR (RO)+ CLEAR ENTIRE MESSAGE PACKET 
20 012034 005301 DEC RI 
51 012036 001375 BNE SNDC1 
52 013040 012764 000060 000074 MOV. _#HC.PSZ.HC.CEV(R4) : PUT PACKET SIZE IN ENVELOPE 
53 012046 012764 001001 000076 MOV «ss DUP. VC“HC.CEV+2(R4) > MARK PACKET AS SPECIAL UDA FUNCTION 
5% 012054 012764 140000 000002 MOV #RG.OWN+RG.FLG.HC.MCT(R4)  =MARK MESSAGE PACKET AVAILABLE 
5§ 012062 012764 100000 000006 MOV #RG.OWN,HC.CCT(R4) “MARK COMMAND TO UDA 
56 012070 005775 000002 TST aC. UADR(RS) :TELL UDA COMMAND 1S. THERE 
57 012074 052765 000004 000014 BIS #CT.CMD, C-FLG(RS) MARK COMMAND ISSUED 
58 : 3: INITIALIZE TIMEOUT COUNTER 
59 012102 <R1 ,RO> 


PTRP x, <R1,RO> 
MOV (SP) +, 


«ENDM 
02 012601 MOV (SP)+,R1 
MOV (SP)+,RO 
RETURN 





an eee ee ne 
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| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 46 SEQ 0226 
| GLOBAL SUBROUTINES. SECTION 
| } ;UDAINT 
3 :FUNCTIONAL DESCRIPTION: 
4 : SUBROUTINE TO INITIALIZE A UDA AND BRING IT ON-LINE. 
5 : ALL STEPS ARE CHECKED. AN ERROR MESSAGE IS REPORTED IF ANY ERROR 
g ; DETECTED. 
: THE COMMAND/RING BUFFERS ARE 1 ENTRY EACH 
10 : INPUTS: 
| ; RS = ADDRESS OF CONTROLLER TABLE. 
13 ‘OUTPUTS: 
14 : CONDITION Z = SET IF ANY ERROR REPORTED. CLEAR IF NO ERROR. 
15 : R4 = ADDRESS OF UDAIP REGISTER IN UDA 
16 : R5 = UNCHANGED. 
4 sCHECK IF ENOUGH FREE MEMORY FOR RING BUFFER 
20 012110 UDAINT: 
2 zFILL HOST COMMUNICATION AREA WITH ALL ONES 
24 012110 016502 000010 MOV C.RING(RS) .R2 GET FIRST ADDRESS OF RING BUFFER 
25 012114 012703 000004 MOV _ ARNGLEN,R3 :GET SIZE OF RING BUFFER 
26 012120 012722 177777 5$: MOV #-1, (R2)+ sWRITE ONES TO BUFFER 
27 012124 SOB R3,5$ 
012124 005303 DEC R3 
a 012126 001374 BNE S$ 
34 ; DO THE INITIALIZATION 
31 012130 004737 012204 CALL UDAIST DO FIRST THREE STEPS 
32 012134 103421 BCS UDAIEX :GET OUT IF UDA MICROCODE REPORTED FAILURE 
34 ; CHECK HOST COMMUNICATION AREA FOR ALL ZEROS 
36 012136 016502 000010 MOV C.RING(RS) ,R2 GET FIRST ADDRESS OF RING BUFFER 
37 012142 012703 000004 MOV ARNGLEN,R3 GET SIZE OF RING BUF FER 
38 012146 005722 10$: TST (R2)+ CHECK WORD IN BUFFER 
39 012150 001007 BNE UDAI 2E *GO TO ERROR REPORTER IF NOT ZERO 
40 012152 SOB R3,10$ 
012152 005303 DEC R3 
- 012154 001374 BNE 10$ 
e : SEND GO BIT TO UDASA REGISTER TO END INITIALIZATION 
44 012156 012764 000001 000002 MOV #SA.GO,2(R4) zSEND GO BIT 
45 012164 000244 CL2 CLEAR Z AS NO ERROR INDICATION 
46 012166 000207 RETURN 
48 012170 UDAI2E: ERRDF 15. INTHD. INTBF sREPORT BUFFER NOT CLEARED 
-MCALL MSERRINS 
012170 MSERRINS 15, INTHD, INTBF , CSERDF 
~MCALL MSGNINS, M$WORD ,M$TSTLAB 
012170 M$SVC_ C$ERD 


-MCALL MSGNINS -MSTSTLAB 





Sa nnENEGESar eR 
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| CZUDEAO Be sa UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 46-1 SEQ 0227 
| GLOBAL SUBROUTINES SECTION 
012170 M$TSTLAB 
-MCALL MS$TLABEL .MSINCR 
-IIF LT TSTSTMAC, .MEXIT 
} 


0 
MS$TLABEL \TSTESTNUN,\TSTSTSEQ 


EQ 
012170 M$GNINS ar tes CSERDF > 


C 
-IF EQ SVCINS 
012170 104455 TRAP CSERDF 
»MEXIT 
-ENDC 
-IF GT SVCINS 
. Ist 
TRAP CSERDF 
»NLIST 
-ENDC 
000012 -RADIX 10 
-IF NB 15 
000017 i meets 


IF 
“ERROR sMISSING ERROR-NR 


012172 M$WORD \T$SERRNUM 
-MCALL MS$GNINS 
.IRP N,<15> 
a <.WORD N> 


END 
012172 M$GNINS <.WORD 15> 
olf LT S¥ VCIN S 
.- WORD 15 
-MEXIT 
.~ENDC 
-IF EQ SVCINS 
012172 000017 -WORD 15 
-MEXIT 
.ENDC 
-IF GT SVCINS 
LIST 
~WORD 15 
eNLIST 
-ENDC 
000010 -RADIX 8 
-IF NB INTHD 
012174 MSWORD INTHD 
-MCALL INS 


MSGN 
.-IRP N,<INTHD> 
MSGNINS <.WORD N> 


- END 
012174 MSGNINS <.WORD INTHD> 
SVCINS 
-WORD  =INTHD 





GLOBAL SUBROUTINES SECTION 


-IF EQ SVCINS 


sons u 2 
5 CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 46-2 SEQ 0228 
| - 012174 013074 -WORD = INTHD 


IF SVCINS 
«WORD = INTHD 
«NLIST 
od 
M$WORD 0 


01217% ~~ M$WORD INTBF 


.IRP N,<INTBF> 
M$GNINS <.WORD N> 


- ENDM 

012176 MS$GNINS <.WORD INTBF> 
-IF LT SVCINS 
-WORD = INTBF 
-MEXIT 
-IF EQ SVCINS 

012176 012750 -WORD = INTBF 
-IF GT SVCINS 


«WORD = INTBF 
«NLIST 


50 ; ERROR RETURN 


51 
52 012200 000264 UDAIEX: SEZ ;SET Z TO INDICATE ERROR OCCURRED 
53 012202 000207 RETURN 








pa 
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CZUDEAO PDP=11 UDA DISK FORMATT MACRO V06.00 23-JUL-81 15:27:47 PAGE 47 SEQ 0229 
GLOBAL SUBROUTINES SECTION 
:UDAIST 
3 “START THE INITIALIZATION PROCESS ON THE SELECTED UDA. 
4 “STOP BEFORE WRITING THE THIRD WORD SO UDA DOES NOT 
5 [ATTEMPT ANY UNIBUS TRANSFERS. 
7 ‘INPUTS: 
8 : RS = ADDRESS OF CONTROLLER TABLE 
10 012204 UDAIST: BREAK 
“MCALL  MSSVC 
012204 M$SVC_ C$BRK 
_MCALL MSGNINS,M$TSTLAB 
012204 MS$TSTLAB 
_MCALL MSTLABEL,M$INCR 
"IIF LT TSTSTMAC. .MEXIT 
"RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
.RADIX 8 
M$INCR T$TSTSEQ 
012204 MS$GNINS <TRAP  C$BRK> 
.IF LT SVCINS 
TRAP C$BRK 
_MEXIT 
“ENDC 
“IF EQ SVCINS 
012204 104422 TRAP —C$BRK 
.MEXIT 
"ENDC 
"IF GT SVCINS 
“LIST 
TRAP —- C$BRK 
.NLIST 
2 .ENDC 
12 : START THE INITIALIZATION BY WRITING TO UDAIP REGISTER 
14 012206 016504 000002 MOV C.UADR(R5) ,R4 :GET ADDRESS OF UDAIP REGISTER 
15 012212 005014 CLR (RG) ‘WRITE TO UDAIP 
17 012214 012737 004000 012550 MOV #SA.S1,UDARSD : STEP 1 MASK 
18 012222 004737 012426 CALL _-UDARSP : GET STEP 1 READ RESPONSE 
19 012226 103475 BCS UDAIXY : EXIT ON FAILURE 
20 012230 010200 MOV R2,RO * COPY RESPONSE 
21 012232 042700 003777 BIC #IN.MS1,RO t CLEAR DON'T CARES 
22 012236 012703 004000 MOV #IN.RS1_R3 
23 012242 020300 CMP R3,RO : CHECK FOR CORRECT RESPONSE 
24 012244 001062 , BNE UDAIXX ERROR 
25 012246 012764 100000 000002 MOV #IN.WT1,2(R4) + DO STEP 1 WRITE 
27 
28 012254 012737 010000 912550 MOV #SA.S2,UDARSD : STEP 2 MA 
29 012262 004737 012426 CALL _-UDARSP > GET STEP 3 READ RESPONSE 
30 012266 103455 BCS UDAIXY S EXIT ON FAILURE 
31 012270 010200 MOV R2,R * COPY RESPONSE 
32 012272 042700 003500 BIC #IN.MS2,RO * CLEAR DON'T CARES 
33 012276 012703 010200 MOV #IN.RS2._R3 





-——— 
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| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 47-1 
GLOBAL SUBROUTINES SECTION 


34 012302 
| 35 012304 
3 012306 


38 012314 


54 012402 
55 012404 
56 


57 

58 012406 

59 012410 

60 

61 012412 
012412 
012412 
012412 


012412 


012412 





02030C 
001042 
016564 
012737 
004737 


000241 
000207 


104455 


000012 
000006 


000010 
020000 
012426 


002000 
020000 
000000 
040000 
012426 


003777 
040000 


000002 
012550 


000002 
012550 


CMP R3,RO 
UDAI XX 
MOV C.RING(R5) ,2(R4) 
MOV #SA.S3,UDARSD 
UDARSP 
BCS UDAIXY 


R2,RO 
BIC #IN.MS3,R0 
MOV #IN.RS3,R3 


CMP R3,RO 
BNE UDAI XX 
MOV MIN. WT3,2(R4) 


MOV ASA.S4 ,UDARSD 
CALL UDARSP 

BCS UDAIXY 

MOV R2,RO 

BIC #IN.MS4,RO 
MOV #IN.RS4,R3 


CMP R3,RO 
BNE UDAI XX 
CLC 

RETURN 


UDAIXX: ERRDF e. INTHD, INTR3 
-MCALL MSERRINS 
MSERRINS 
-MCALL MSGNINS ,MSWORD ,M$TSTLAB 
MS$SVC  CSERDF 

-MCALL M$GNINS ,M$TSTLAB 


MSTSTLAB 
-MCALL_ M$TLABEL .M$INCR 
-TIF LT TSTSTMAC, .MEXIT 
-RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSE9 
-RADIX 8 
M$INCR TS$TSTSEQ 
MSGNINS <TRAP C$ERDF> 
-IF LT SVCIN 
TRAP CSERDF 
MEXIT 
-ENDC 
IF EQ SVCINS 

TRAP CSERDF 
»MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 

«NLIST 


-RADIX 10 
-IF NB 6 
TSERRNUM=6 


6, INTHD, INTR3, CSERDF 


CHECK FOR CORRECT RESPONSE 
RROR 
DO STEP 2 WRITE 


STEP 3 MA 

GET STEP. 3 READ RESPONSE 
EXIT ON FAILURE 

COPY RESPONSE 

CLEAR DON'T CARES 


CHECK FOR CORRECT RESPONSE 
ERROR 

DO STEP 3 WRITE 

STEP 4 MASK 

GET STEP 4 READ RESPONSE 
EXIT ON FAILURE 

COPY RESPONSE 

CLEAR DON'T CARES 

at FOR CORRECT RESPONSE 


RROR 
ALLOW CALLER TO DO STEP 4 WRITE 


:CLEAR CARRY FOR NO ERROR INDICATION 


;REPORT ERROR 


TRAP CSERDF 


SEQ 0230 


| 
| 


—_—$—$<——— 
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CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 47=2 SEQ 0231 
| GLOBAL SUBROUTINES SECTION 
“ERROR ;MISSING ERROR=NR 
012414 M$WORD \TSERRNUM 
.MCALL M$GNINS 
~I1RP N,<6> 
MSGNINS <:WORD N> 
012414 M$GNINS <.WORD 6> 
.IF LT SVCINS 


D | 
-MEXIT 
- ENDC 
- IF EQ SVCINS 
012414 000006 «WORD 6 


| 


-IF GT SVCINS 


«WORD 6 
«-NLIST 


000010 -RADIX 
012416 M$WORD INTHD 


. JRP N,<INTHD> 
MSGNINS <.WORD N> 


- ENDM 
012416 MSGNINS <.WORD INTHD> 
SVCINS 
ts INTHD 
-IF EQ SVCINS 
012416 013074 «WORD  INTHD 
-IF GT SVCINS 
«WORD = INTHD 
eNLIST 
M$WORD 0 
- IF NB INTR3 
012420 M$WORD INTR3 
-MCALL MS$GNINS 
. IRP N,<INTR3> 
MSGNINS <.WORD N> 
012420 a INTR3> 


IF 
-WORD_ = INTR3 
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SK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 47-3 SEQ 0232 


CZUDEAO PDP=11 UDA DI 
SECTION 


GLOBAL SUBROUTINES 
-IF €Q SVCINS 
012420 012662 «WORD = INTR3 
-MEXIT 
-ENDC 
-IF GT SVCINS 
»LIST 
«WORD =INTR3 


»NLIST 
« ENDC 
- 1FF 
M$WORD 0 
62 012422 000261 UDAIXY: SEC ; FLAG ERROR TO CALLER 
63 012424 000207 RE TURN 





CZUDEAO PDP=11 UDA 
NES 


M 2 
SK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 48 SEQ 0233 
GLOBAL SUBROUT! CT 


DI 
SECTION 
; UDARSP 


;WAIT FOR UDA TO RESPOND WITH DATA _IN UDASA REGISTER. 

;EITHER STEP BIT FROM MASK IN LOCATION UDARSD OR ERROR BIT 

[WILL CAUSE A TERMINATION. 

SAN ERROR MESSAGE WILL BE "PRINTED IF THE UDA DOES NOT RESPOND 

7 IN 30 SECONDS OR IF ERROR SETS. (30 SCCONDS BASED ON 11/44 PROCESSOR 
SEXECUTION TIME) 


—ODONAUEWY ODO ONAUSW 


1 : INPUTS: 

1 3 UDASRD = MASK OF STEP BIT TO LOOK FOR 

: : R4 - ADDRESS OF UDAIP REGISTER 

1 ‘OUTPUTS: 

1 3 ERROR MESSAGE IF TIME OUT ON RESPONSE OR ERROR BIT SETS 

1 ; R2 - DATA FROM UDASA REGISTER 

: Bs CARRY SET IF ERROR BIT SETS 

19 012426 952737 100000 012550 UDARSP: BIS #SA.ERR,UDARSD ;SET ERROR BIT IN MASK WORD 

20 012434 012702 006400 MOV #6400, R2 :SET UP DELAY COUNT FOR 30 SECONDS 
21 012440 UDARS1: DELAY 5. “DELAY 0.0005 SECOND 


° 5. 
ate ARGUMENT TO ‘DELAY'’ MUST NOT BE GREATER THAN 250 
- ENDC 


-IF BS. 
MSGNINS <MOV #1,(PC)+> 
012440 MS$GNINS <MOV #5.,(PC)+> 
-IF LT SVCINS 
MOV #5.,(PC)+ 
»MEXIT 
-ENDC 
-I1F EQ SVCINS 
012440 012727 000005 MOV #5.,(PC)+ 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 
MOV #5.,(PC)+ 


«NLIST 
- ENDC 
- ENDC 
012444 MS$GNINS <.WORD 0> 
IF LT SVCINS 
-WORD QO 
»MEXIT 
- ENDC 
IF EQ SVCINS 
012444 000000 - WORD 
-MEXIT 


- ENDC 
IF GT SVCINS 
AUST 


«NLIST 
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GLOBAL SUBROUTINES SECTION 


-ENDC 
012446 MS$GNINS <MOV LSDLY, (PC) +> 
-IF LT SVCINS 
MOV LSDLY,(PC)+ 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 


012446 013727 002116 LSDLY, (PC) + 


NLIST MOV LSDLY, (PC)+ 


ack 

012452 M$GNINS <.WORD 0> 
-iF LT SVCINS 
WORD 0 


-MEXIT 

-ENDC 

IF EQ SVCINS 
. WORD 

»MEXIT 

- ENDC 

IF GT SVCINS 

ol TST 


012452 000000 


«WORD 0 
eNLIST 


- ENDC 
012454 MS$GNINS <DEC -6(PC)> 
-IF LT SVCINS 
DEC -6(PC) 
»MEXIT 
- ENDC 
-IF EQ SVCINS 
012454 005367 177772 DEC 6 (PC) 
»MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


DEC -6(PC) 
. ENDC 
012460 ; M$GNINS <BNE .=4> 
; IF LT SVCINS 
al BNE 4 
»MEXIT 
° ~ENDC 
wolf £0 SVCINS 
012460 001375 _ Saee BNE 
“ ~MEXIT 
~ ENDC 
..IF GT SVCINS 
“SLIST 


4 


BNE 274 
eNLIST 
. ENDC.) Rs za ’ 





CZUDEAD PDP=11 UDA D 
GLOBAL SUBROUTINES S 


012462 


012462 


012466 


012466 


22 012470 


26 012504 
27 012510 
012510 
012510 
012510 


012510 


012510 


I 
ECTION 


005367 177756 


001367 


gocres 012550 000002 


001356 
016402 000002 


104455 


8 3 
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MSGNINS <DEC =22(PC)> 
IF LT SVCINS 
EC =22(PC) 
-MEXI : 
-ENDC 
~IF EQ SVCINS 
DEC =22(PC) 
-MEXIT 
~ENDC 
~IF GT SVCINS 
LIST 
eNLIST 
-ENDC 
MSGNINS <BNE .~20> 
~IF LT SVCINS 
BNE --20 
-MEXIT 
.-ENDC 
-IF EQ SVCINS 
BNE -720 
-MEXIT 
~ENDC 
-IF GT SVCINS 
LIST 
-NLIST 
~ENDC 
BIT UDARSD,2(R4) 
RNE UDARS2 
DeC R2 
BNE UDARS1 
MOV 2(R 


4) ,R2 
ERRDF 4, zINTHD, INTR1 

-MCALL MS$ERRINS 
MSERRINS 4, INTHD, INTR1,CSERDF 
-MCALL ay MSWORD ,M$TSTLAB 
M$SVC CS$ERD 

-MCALL MSGNINS -M$TSTLAB 
MSTSTLAB 

MCALL_ MS$TLABEL,M$INCR 

TIF LT TSTSTMAC, .MEXIT 


10 
M$TLABEL \TSTESTNUN, \T$TSTSEQ 
» RADIX 


M$INCR TSTSTSEQ 
M$GNINS <TRAP 


DC 
IF EQ SVCINS 
TRAP 

»MEXIT 

-ENDC 
-IF GT SVCINS 

LIST 


CSERDF 


DEC 


BNE 


;LOOK AT ERROR AND STEP BIT 
;BRANCH IF EITHER SET 

:LOOK AT TIME OUT COUNTER 
;LOOP UNLESS TIME OUT 

:GET REGISTER CONTENTS 
;REPORT TIME OUT ERROR 


=22(PC) 


-720 


SEQ C235 
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| CZUDEAO PDP=11 UDA D 
NES SECTION 


I 
eee SUBROUT I E 


TRAP —- CSERDF 
-NLIST 
. ENDC 
000012 «RADIX 10 
* F NB 4 
000004 TSERRNUM=4 
- ERROR ;MISSING ERROR=NR 


012512 M$WORD \TSERRNUM 
-MCALL MSGNINS 


~IRP ,<4> 
a <.WORD N> 

012512 MSGNINS <.WORD 4> 
yar OF SyCINS 


“TF EQ SVCINS 
012512 000004 .WORD 4 
“IF GT SVCINS 


«WORD 4 
eNLIST 


000010 -RADIX 
012514 M$WORD INTHD 
.MCALL M$GNINS 
“IRP NN, <INTHD> 
MSGNINS <.WORD N> 
012514 MSGNINS <.WORD INTHD> 
. SVCINS 
*borD INTHD 
"IF EQ SVCINS 
012514 013074 WORD INTHD 
“IF GT SVCINS 
‘ .WORD —INTHD 
.NLIST 
M$WORD 0 


012516 M$WORD INTR1 
-MCALL M$GNINS 

- ]RP N,<INTR1> 
M$GNINS <.WORD N> 





4 


| CZUDEAO PDP=11 UDA DI 
| GLOBAL SUBROUTINES SE 


| 


012516 


012516 012552 


28 012520 000407 





D 
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- ENDM 
M$GNINS <.WORD INTR1> 
IF LT gd 


~EN 

-IF EQ SVCINS 
~ WORD 

oMEXIT 

-ENDC 

-IF GT SVCINS 

LIST 


INTR1 


»NLIST 


BR ULAXXX 


. WORD 


INTR1 


SEQ 0237 


cE. Cas ee 
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| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL=81 15:27:47 PAGE 49 SEQ 0238 
GLOBAL SUBROUTINES SECTION 


| : CHECK IF ERROR BIT SET 
| 3 012522 016402 000002 UDARS2: MOV Saeed he GET REGISTER CONTENTS 
4 012526 100006 BPL UDAR sEXIT IF ERROR NOT SET 
5 012530 ERRDF 5, INT, INTR2 REPORT ERROR INFO 
-MCALL _iSERRINS 
012530 MSERRINS 5, INTHD, INTR2, CSERDF 
.MCALL MSGNINS,M$WORD,M$TSTLAB 
012530 M$SVC_ -CSERDF 
-MCALL MS$GNINS,MS$TSTLAB 
012530 MSTSTLAB 


-MCALL_ M$TLABEL .M$INCR 
-IIF LT TSTSTMAC, .MEXIT 


«RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 
MSINCR TSTSTSEQ 
012530 MSGNINS <TRAP C$ERDF> 


-IF LT SVCINS 
TRAP CSERDF 
»MEXIT 

-ENDC 

IF EQ SVCINS 

012530 104455 TRAP CSERDF 

-MEXIT 

- ENDC 

-IF GT SVCINS 

TRAP CSERDF 


eNLIST 
- ENDC 
000012 -RADIX 10 
-1F NB 
000005 TSERRNUM=5 
or sMISSING ERROR=NR 
— 012532 M$WORD \TSERRNUM 


— eae 
MSGNINS <.WORD N> 


EN 
012532 MSGNINS <.WORD 5> 
-IF LT SVCINS 
“WORD 5 
-MEXIT 
- ENDC 
IF EQ SVCINS 
012532 000005 - WORD 


»MEXIT 

- ENDC 

-IF GT SVCINS 

. IST 

«WORD 5 
eNLIST 
-ENDC 
-RADIX 8 





CS 7 ie RE aCe NATE ek 
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| GLOBAL SUBROUTINES SECTION 


012534 


| 
| 012534 


012534 


012536 


012536 


012536 





013074 


012616 


000261 
000207 


000241 
000207 


000000 


NB INTHD 
. IRP N,<INTHD> 
MSGNINS <.WORD N> 
ein <.WORD INTHD> 
F SVCINS 
-WORD_ =INTHD 


-IF EQ SVCINS 
-WORD = INTHD 


-1F GT SVCINS 
eNLIST 


M$WORD 0 

“IF NB INTR2 

M$WORD INTR2 

.MCALL MSGNINS 
"IRP—-N, <INTR2> 

MSGNINS <.WORD N> 

M$GNINS <.WORD INTR2> 

SVC INS 
“WORD  INTR2 


.IF EQ SVCINS 
.WORD  INTR2 


-IF GT SVCINS 


eNLIST 


SEC 
RE TURN 
sNORMAL EXIT 
UDARSX: CLC 

RE TUR 


LOCATION FOR STEP BIT MASK 


UDARSD: .WORD 0 


«WORD = INTHD 


«WORD =INTR2 


sCLEAR CARRY AS NO ERROR INDICATION 


;LOAD BY CALLING ROUTINE 


SEQ 0239 


a ne 


/CZUDEAD PDP=11 UDA DISK 
GLOBAL SUBROUTINE 


2 
3 012552 


| 012552 
012552 
012552 


012552 
012552 


012552 
012552 


4 012552 


012552 


012552 


012552 


012552 





000040 


000000 


000011 
010007 


010610 


000001 


S SECT 


G 3 
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;UDAINT ROUTINE ERROR MESSAGES 


BGNMSG INTR1 
foncter MSPUSH ,M$INCR ,MS$GNGBL 


SG=F $BGN 
MSPUSH TSNS, TSNESTLEV,FSMSG 
-MCALL noesicey. 


M$SETS _TS$NS, CISNESTLEV. FSMSG 
TSNSO=F $MSG 

T$$MSG=TSTAGNUM 

MSINCR TSTAGNUM 
T$TAGNUM=T$TAGNUM+ 1 


M$GEN  INTR1,:,SVCGBL, 


M$GEN  INTR1,:,SVCGBL,< > 
-IF LE SVCGBL 


«NLIST 


PRINTB #INTM1 
“2% MS$PRINT 


-IF Bo #INTM1 

-ERROR ;MISSING FORMAT 
-MEXIT 

. ENDC 

IF 


2 B <> 

M$PRINT CS$PNTB,AINTM1 
-MCALL M$COUNT, MSPUT ,MSGNINS ,M$SVC 
TSARGCNT=1 

ag TSARGCNT, <>, <>, <>,<>,<>,<>,<>,<> 

IF 
M$COUNT TSARGCNT. <>,<>,69,<,, 0,0, 
NDC 


-IF NB < 
+ SARGCNT-TSARGCNT +1 
-ENDC 


.- IRP N.<\TSARGCNT> 
M$PUT #N,#INTM1,<>,<>,<>,<>, <>, <2, <9, 2 


MS$PUT #1,4INTM1,<>,<>,<>,<>,<>, <>, 0,0 
-MCALL M$PUT1 

-I1F NB <#INTM1> 

M$PUT <AINTM1>, <>, <>, <>, <2, <>, <9, 02,0> 
M$PUT1 

<> 


TIME OUT ERROR 


INTR1:: 


SEQ 0240 


| H 3 
“CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL~81 15:27:47 PAGE 50-1 
“GLOBAL SUBROUTINES SECTION 


' 
| M$SPUT <>, <>, <>, <>, <9, ©, 2, OO, 


~ENDC 
“IF NB <#INTM1> 
012552 M$PUT1 #INTM] 
-MCALL M$GNINS 
012552 MSGNINS <MOV = #INTM1,=(SP)> 


-IF LT SVCINS 
MOV #INTM1 ,=(SP) 


-MEXIT 
- ENDC 
-IF EQ SVCINS 
012552 012746 013121 EXIT MOV #INTM1 ,=(SP) 
- MEX 


« ENDC 
-1F GT SVCINS 
. IST 


»NLIST 
-ENDC 


~ 1FF 
-IF DIF B,<#INTM1> 


-ERROR ;ILL. ARG. *#INTM1"’ ONLY ‘B’' IS ALLOWED. 


-MEXIT 


. ENDC 
MEGNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


012556 M$PUT1 #1 
.MCALL M$GNINS 


-IF B 
072556 M$GNINS <MOV #1,-(SP)> 


- ENDC 
IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 
IST 


012556 012746 000001 


#1,-(SP) 


»NLIST 
-ENDC 


 1FF 

-IF DIF B,<#1> 

-ERROR ;IJLL. ARG. ‘#1°* ONLY ‘BY’ IS ALLOWED. 
»MEXIT 


« ENDC 
MS$GNINS <CLR -(SP)> 
ge <BISB-,(SP)> 


-ENDC 





#INTM1,=(SP) 


CZUDEAO PDP=11 UD 
| GLOBAL SUBROUTINE 


012562 


“> 
“no 


TION 
012562 010600 


| 
012564 
012564 


012564 


012564 104414 


012566 


012566 062706 000004 





M$GNINS 


<MOV SP,RO> 


IF LT SVCINS 


«END 
-IF EQ SVCINS 
MOV 


-MEXIT 
c 


-ENDC 
M$SVC 
-MCALL 


MSTSTLAB 


-MCALL 
TIF LT 


«RADIX 
MSINCR 
M$GNINS 


SP RO 


-ENDC 
-IF GT SVCINS 
IST 


«NLIST 


C$PNTB 
MSGNINS ,M$TSTLAB 


M$TLABEL ,MSINCR 
TSTSTMAC, .MEXIT 


. 2 
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\TSTESTNUN,\TS$TSTSEQ 


TSTSTSEQ 
<TRAP C$PNTR> 


-IF LT SVCINS 


TRAP 
»MEXIT 


- ENDC 
-IF EQ SVCINS 
TRAP 


-MEXIT 


C$PNTB 


C$PNTB 


- ENDC 
-1F GT SVCINS 
eLIST 


-ENDC 
. JRP 
MS$GNINS 


- ENDM 
M$GNINS 


«NLIST 


N,<\TSARGCNT*2+2> 


<ADD HN, SP> 
<ADD #4 ,SP> 


-IF LT SVCINS 


-MEXIT 


IF €Q SVCINS 
ADD 


-MEXIT 


- ENDC 
oMEXIT 
-ENDC 
IF B 


#4 ,SP 


#4 ,SP 


-ENDC 
-IF GT SVCINS 
IST 


eNLIST 


<> 


TRAP 


ADD 


SP,RO 


C$PNTB 


#4 SP 


SEQ 0242 


se 


DISK 
GLOBAL SUBROUTI SECT 


| 
| CZUDEAO_PDP=11_ UDA 
| NES 
| 


5 012572 


012572 


000001 
012572 


000002 


012572 


012572 


J 3 
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ION 


M$PRINT 
-MEXIT 


£ 
MSPRINT 


-MCALL 
-IF B 
- ERROR 
-MEXIT 
-ENDC 
-IF B 
MSPRINT 
-MEXIT 
- ENDC 
Af B 
MSPRINT 


-MCALL 
TSARGCNT 


M$COUNT 


IF NB 





-1F NB < 
M$COUNT 
DC 


TSARGCN 


C$PNTB,AINTM1,<> 

<> 

C$PNTB,AINTM1 ,<>,<> 

<> 

CS$PNTB,AINTM1,<>,<>,<> 

<> 

CS$PNTB,AINTM1 ,<>,<>,<>,<> 

<> 
C$PNTB,4INIM1,<>,<>,<>,<>,<> 
<> 
C$PNTB,AINIM1,<>,<>,<>,<>,<>,<> 


<> 
C$PNTB,AINTM1 , <>, <>, <>, <>, <>, <>, 


C$PNTB,AINTM1, <>, <>, <>, <>, <>, <>,<,0 
PRINTB #INTM2,R2 

MSPR INT 

#INTM2 

sMISSING FORMAT 


<R2> 
C$PNTB,AINTIM2 


<> 

CSPNTB,AINTM2,<R2> 

COLT PONE SORES PEST 
TSARGCNT, <R2>, <>, <>, <>, <>, <>, <,0> 


> 
TSARGCNT,, <>, <>, <>, <9, <>,<>,O,<> 


<R2> 
T=T$ARGCNT +1 


N,<\TSARGCNT> 
HN, AINTM2, <R2>,<>, <>, <>, <>, <>, <2,> 


#2 ,AINTM2,<R2>,<>,<>, <2, <2, 02,0, 
M$PUT1 

<#INTM2> 
<A#INTM2>, <R2>, <>, <>, <>, <2, 0,2, 
M$PUT1 


SEQ 0243 


———_—____+—__— 


3 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PACE 50-4 
GLOBAL SUBROUTINES SECT 


| 
| .IF NB <R2> 


32 


012572 M$PUT <R2>,<>,<>,<>,<>,<2, <2, 0,0 
-MCALL M$PUT1 
<> 


MSPUT KP <>, <>, <3 <> <> <>, <9, <> 


“ NB <R2> 
012572 M$PUT1 R 
-MCALL M$GNINS 


IF B 
012572 MSGNINS <MOV R2,-(SP)> 


EN 
-1F EQ SVCINS 

012572 010246 MOV R2,-(SP) 
-MEXIT 


- ENDC 
-I1F GT SVCINS 
«LIST 


MOV 
eNLIST 


-1F DIF B,<R2> 
ILL. ARG. *R2"' ONLY ‘B'' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
MSGNINS <BISB-—,(SP)> 


-IF NB <#INTM2> 
012574 MSPUT1 #INTM2 
-MCALL M$GNINS 


IF 
012574 M$GNINS <MOV M#INTM2 ,~(SP)> 
-IF LT SVCINS 
MOV #INTM2,~-(SP) 
»MEXIT 
- ENDC 
-IF EQ SVCINS 
012574 012746 013221 ents MOV MINTM2,~ (SP) 
-MEX 


- ENDC 
-IF GT SVCINS 
«LIST 


MOV 
«NLIST 
- ENDC 


-1FF 
-IF DIF B,<#INTM2> 
coat ILL. ARG. *#INTM2"' ONLY *B IS ALLOWED. 


"ENDC 





SEQ 0244 


R2,~(SP) 


#INTM2 ,-(SP) 


CZUDEAO fed UDA DISK 
GL SECT 


OBAL SUBROUTINES ION 
M$GNINS <CLR -(SP)> 
eo gs <BISB ~(SP)> 
~ENDC 
~ENDC 
LIF NB <#2> 
012600 MS$PUT1 #2 
Ria MSGNINS 
012600 INS <MOV #2,-(SP)> 
me LT SVCINS 
OV #2,-(SP) 
-MEXI 
.-ENDC 
.IF EQ SVCINS 
012600 012746 000002 MOV #2,-(SP) 
-MEXIT 
.~ENDC 
.IF GT SVCINS 
LIST 
-NLIST 
“—_ 
“IF DIF B,<A2> 
. ERROR ILL. ARG. '#2"' ONLY ‘'B’’ IS ALLOWED. 
-MEXIT 
-ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB ,(SP)> 
~ENDC 
-ENDC 
012604 MSGNINS <MOV SP,RO> 


012604 010600 





. 2 
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-IF LT SVCINS 

MOV SP.RO 

m 

-IF EQ SVCINS 

MOV 

-MEXIT 

- ENDC 

-IF GT SVCINS 
IST 


SP,RO 


«NLIST 
-ENDC 
M$SVC C$PNTB 
-MCALL M$GNINS,M$TSTLAB 
MSTSTLAB 


-MCALL_ M$TLABEL ,M$INCR 
-1IF LT TSTSTMAC, .MEXIT 
RADIX 


° 10 

MS$TLABEL \TSTESTNUN, \TS$TSTSED 
-RADIX 8 

M$INCR T$TSTSEQ 

M$GNINS <TRAP C$PNTB> 

IF LT SVCINS 


MOV 


MOV 


#2,-(SP) 


SP,RO 


SEQ 0245 


CZUDEAO PDP=11 UDA 


DI 
GLOBAL SUBROUTINES SECTION 


012606 104414 


012610 


012610 062706 000006 


6 012614 


TRAP 
MEXIT 


-ENDC 
-IF EQ SVCINS 
TRAP 


»MEXIT 


-ENDC 
. IRP 
MSGNINS 


- ENDM 
MSGNINS 
oif LF 

ADD 
-MEXIT 


«ENDO 
-IF EQ SVCINS 
ADD 


»MEXIT 


of 
MSPRINT 


mM 3 
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. ENDC 
-IF GT SVCINS 
LIST 


-ENDC 
-IF GT SVCINS 
IST 


C$PNTB 
C$PNTB 
eNLIST 
N,<\TSARGCNT *2+2> 
<ADD #N, SP> 
<ADD #6,SP> 
SVCINS 
#6,SP 
#6,SP 
eNLIST 


<> 
CS$PNTB,AINIM2,<R2>,<> 

<> 

CSPNTB, AINTM2,<R2>,<>,<> 

<> 

CSPNTB,AINTM2, <R2>,<>,<>,<> 

<> 
CS$PNTB,AINTM2,<R2>,<>,<>,<>,<> 


<> 
CS$PNTB,AINTIM2, <R2>,<>,<>, <>, <>, <> 


TRAP C$PNTB 


ADD #6,SP 


<> 
C$PNTB,AINTM2, <R2>.<>,<>,<>,<>,<>,<> 


CS$PNTB,AINTM2, <R2>,<>, <>, <>, <>, <>, <>, <> 
ENDMSG 


SEQ 0246 


3 
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13K 
GLOBAL SUBROUTI ECTION 


-MCALL M$POP,MS$GNTAG, ine -MSENDERR 


012614 MSPOP TS$NS.TSNESTLE 
“MCALL MSGETS.MSDECR 
“IF Li. TSNESTLEV 
"ERROR TSNESTLEV : MACRO T$NS UNDERFLOW 
MEXIT 
"ENDC 
012614 MSGETS TSNS,\T$NESTLEV.TSTEMP 
000011 T$TEMP=T$NSO 
012614 MSDECR TSNESTLEV 
177777 TSNESTLEV=TSNESTLEV=1 
LIF EQ FSMSG-TSTEMP 
012614 MSGNTAG L. TS$MSG 
CALL MSGEN 
012414 mSGEN’ L \TSSMSG,SVCTAG 
LIF_LE  SVCTA 
012616 (10007: 
“MEXIT 
“ENDC 
LIST 
L10007: 
.NLIST 
010000 SSLSYM=TSLSYM 
012614 MSSVC  C$MSG 
MMCALL SGNINS ,MSTSTLAB 
012614 MSTSTLAB 
“MCALL MSTLABEL.MSINCR 
"TIF LT TSTSTMAC. .MEXIT 
"RADIX 10 
MS TLABEL \TSTESTNUN, \TSTSTSEQ 
“RADIX 8 
MSINCR TSTSTSEO 
012614 MSGNINS <TRAP C$MSG> 
LIF LT SVCINS 
TRAP C$MSG 
“MEXIT 
"ENDC 
"IF EQ SVCINS 
012614 104423 TRAP C$MSG 
LMEXIT 
“ENDC 
"IF GT SVCINS i 
TRAP C$MSG 
“NLIST 
-ENDC 
000041 " ismsc- =F SEND 
RSENDERR ENDMSG, TSTEMP , 
7 Ae 
8B 012616 BGNMSG INTR2 UDA DIAGS FAILED 
.MCALL _M$PUSH,MSINCR ,MSGNGBL 
000040 i $MSG=F SBGN 
012616 MSPUSH  T$NS,TSNESTLEV.F$MSG 


-MCALL MS$INCR,MS$SETS 
012616 M$INCR T$NESTLEV 





B 4 
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GLOBAL SUBROUTINES SECTION 
00000C TSNESTLEV=TSNESTLEV+1 
012616 MS$SETS _TSNS,\TSNESTLEV,FSMSG 
000011 TSNSO=F $MSG 
010010 T$SMSG=T$STAGNUM 
012616 MS$INCR TSTAGNUM 
010011 TSTAGNUM=T$ TAGNUM+1 
012616 M$GNGBL INTR2 


-1F NB, INTR2 
-IF NB, 
"eae INTR2,:,SVCGBL, 


i 8 
012616 MSGEN  iNTR2,:,SVCGBL,< > 
-IF LE SVCGBL 
012616 INTR2:: 
~MEXIT 
- ENDC 
LIST 
INTR2:: 
-NLIST 
- ENDC 
- ENDC 
9 012616 PRINTB #INTM3 
-MCALL M$PRINT 
-IF B  #INTM3 
-ERROR ;MISSING FORMAT 
MEXIT 
-ENDC 
Sic oe. . 
012616 MS$PRINT CS$PNTB,AINIM3 
-MCALL MSCOUNT ,MSPUT ,MSGNINS ,M$SVC 
000001 TSARGCNT=1 
012616 MS$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


IF <> 

M$COUNT TS$ARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 

-ENDC 

.IF NB <> 

TSARGCNT=TSARGCNT +1 

-ENDC 

. IRP N,<\TSARGCNT> 

a #N,AINTM3, <>, <>, <>, <>, <>,<2,<>,0> 
012616 M$PUT #1,HINIM3,<>,<>,<>,<>,<>,<>,<>,<> 

M$PUT1 


-IF NB <#INTM3> 
012616 M$PUT <AINTM3>,<>,<>,<>,<>,<>,<>,©O,<> 
-MCALL MS$PUT1 
-1F NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


- NB <#INTM3> 
012616 M$PUT1 #INTM3 
-MCALL MS$GNINS 


if B 
012616 M$GNINS <MOV #INTM3,-(SP)> 
-IF LT SVCINS 








——— 


c ¢ 
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GLOBAL SUBROUTINES SECTION 


012616 012746 013253 


012622 


012622 


012622 012746 000001 


012626 


012626 010600 





MOV #INTM3,=(SP) 

-MEXIT 

-ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

- ENDC 

-IF GT SVCINS 

LIST 


#INTM3 ,=(SP) 


MOV #INTM3,=(SP) 


eNLIST 
-ENDC 
FF 
-IF DIF B,<#INTM3> 
“ERROR ;ILL. ARG. ‘#INTM3"’ ONLY ‘B’' IS ALLOWED. 
yg 


~EN 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-~— ,(SP)> 


-ENDC 
.-ENDC 
-ENDC 
IF <f#1> 
MS$PUT1 # 


; 
-MCALL M$GNINS 


-IF B 

M$GNINS <MOV #1,-(SP)> 
-IF LT SVCINS 

MOV #1,-(SP) 


-MEXIT 

- ENDC 

IF EQ SVCINS 

MOV #1,-(SP) 

-MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 

MOV #1,-(SP) 
eNLIST 


- ENDC 


IFF 
-I1F DIF B,<#1> 
-ERROR ;ILL. ARG. ‘#1'" ONLY ‘'B’' IS ALLOWED. 


-MEXIT 
- ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-~ ,(SP)> 
- ENDC 


-ENDC 

M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SP,RO 
.E C 

-IF EQ SVCINS 

MOV 

»MEXIT 


SP,RO 


SEQ 0249 


a 


D 4 
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GLOBAL SUBROUTINES SECTION 


-ENDC 
-IF GT SVCINS 
| IST 


«NLIST 
- ENDC 
012630 M$SVC C$PNTB 
-MCALL MS$GNINS,M$TSTLAB 
012630 M$TSTLAB 


-MCALL_ M$TLABEL,.MS$INCR 
-IIF LT TSTSTMAC, .MEXIT 


«RADIX 10 
MSTLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 
MS$INCR TSTSTSEQ 
012630 M$GNINS <TRAP C$PNTB> 


-IF LT SVCINS 
TRAP C$PNTB 
-MEXIT 


-ENDC 
-I1F EQ SVCINS 

012630 104414 TRAP C$PNTB 
»-MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 


«NLIST 
- ENDC 


. IRP N,<\TSARGCNT *2+2> 
MSGNINS <ADD #N,SP> 


EN 
012632 M$GNINS <ADD #4, SP> 
-IF LT SVCINS 
ADD #4 ,SP 
-MEXIT 
-IF EQ SVCINS 
012632 062706 000004 ADD #4 ,SP 


-MEXIT 

- ENDC 

-IF GT SVCINS 
IST 


eNLIST 
-ENDC 
-MEXIT 
- ENDC 
jf @ & 
M$PRINT C$PNTB,4INTM3,<> 
-MEXIT 


12 =. 
eat C$PNTB,AINTM3,<>,<> 





MOV 


TRAP 


ADD 


SEQ 0250 


SP,RO 


C$PNTB 


a4 ,SP 








| 
| CZUDEAO PDP=11 


an. SUBROUT I 


| 
| 
| 
| 
| 
| 
| 
' 
' 
| 


10 012636 


012636 


012636 


012636 


012636 


012636 


000001 


000002 


« ENDC 
MSPR INT 


CN 
M$SCOUNT 


-I1F NB 

MSCOUNT 
- ENDC 
IF NB 
ENDC 





CSPNTB,A4INTM3,<>,<>,<> 

<> 

C$PNTB,AINTM3,<>,<>,<>,<> 

<> 

C$PNTB,AINTM3,<>,<>,<>,<>,<> 

<> 
CS$PNTB,AINIM3,<>,<>,<>,<>,<>,<> 


<> 
C$PNTB,AINIM3, <>, <>, <>, <>, <>, <>,<> 


C$PNTB,AINTM3,<>,<>,<>,<>,<>,<>, <>, <> 
PRINTB #INTM2,R2 

MSPRINT 

#INTM2 

sMISSING FORMAT 


<R2> 
C$PNIB,AINTM2 


<> 
C$PNTB,AINTM2, <R2> 
MSCOUNT ,M$PUT ,M$GNINS ,M$SVC 


T=1 
TSARGCNT, <R2>, <>, <>, <>, <>, <>, <>, <> 


<> 
TSARGCNT, <>, <>, <>, <>, <>, <>,<>,<> 


‘ <R2> 
é ~ Je gam 


N,<\TSARGCNT> 
AN, AINTM2, <R2>,<>,<>,<>,<>,<>,2,<> 


#2, AINTM2, <R2>,<>,<>,<>,<,0O,0O,0 
M$PUT1 


<#INTM2> 
<AINTM2>, <R2>,<>, <>, <>, <,, 0,0 
$PUT1 

<R2> 

Re>,. >, 2,2, CO; O,2O,0EO,0O 

MS$PUT 1 

<> 

>, OO, O,O,O,0,02 


<R2> 
R2 


SEQ 0251 


— —= ——— - ee a cn 


/CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUTINES S$ 


8 1 MSGNINS 


012636 M$GNINS <MOV R2,-(SP)> 
-IF LT SVCINS 
MOV R2,-(SP) 
-MEXIT 
~ENDC 
-IF EQ SVCINS 

012636 010246 MOV R2,-(SP) 
-MEXIT 


-ENDC 
-IF GT SVCINS 
SLIST 
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MOV R2,-(SP) 
»NLIST 


-IF DIF B,<R2> 
ERROR ;ILL. ARG. ‘R2°* ONLY 'B’’ IS ALLOWED. 


M$GNINS <CLR  _=(SP)> 
M$GNINS <BISB  ,(SP)> 


‘ NB <AINTM2> 
012660 MS$PUT1 #INTM2 
-MCALL MS$GNINS 


-IF B 
012640 M$GNINS <MOV #INTM2 ,-(SP)> 
-IF LT SVCINS 
MOV #INTM2 ,-(SP) 
»MEXIT 
-ENDC 
-1F EQ SVCINS 
012640 012746 013221 — MOV #INTM2 ,-(SP) 
- MEX 


-ENDC 
-IF GT SVCINS 
IST 


MOV #INTM2,-(SP) 
-NLIST 

_ 

-IF DIF B,<#INTM2> 

“ERROR ;iLL. ARG. ‘#INTM2"* ONLY ‘RB’ IS ALLOWED. 
“MEX IT 

-ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 

- ENDC 

-ENDC 

- ENDC 

IF NB <#2> 

012644 M$PUT1 #2 


-MCALL M$GNINS 


--—--- - _ — a — 


G 4 
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| CZ2UDEAO PDP=11 UDA 
Ss ION 


DI 
SE 


| GLOBAL SUBROUTINE 


012644 


012644 012746 000002 


012650 


012650 010600 


012652 
012652 


012652 


012652 104414 





IF B 

MSGNINS <MOV #2,-(SP)> 
-IF LT SVCINS 

MOV #2,-(SP) 


-MEXIT 

- ENDC 

-IF —Q SVCINS 

MOV #2,~(SP) 

oMEXIT 

-ENDC 

-1F GT SVCINS 

«NLIST 


IF DIF B,<#2> 
-ERROR ;ILL. ARG. '#2°* ONLY 'B'’ IS ALLOWED. 


- ENDC 
M$GNINS <CLR -(SP)> 
M$GNINS <BISB- ,(SP)> 
-ENDC 
- ENDC 
MSGNINS <MOV SP,RO> 
-IF LT SVCINS 
MOV RO 
-MEXIT 
~ENDC 
-1F EQ SVCINS 

MOV SP,RO 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 

eNLIST 


-ENDC 

M$SVC C$PNTB 

-MCALL M$GNINS ,M$TSTLAB 

M$TSTLAB 

-MCALL_ M$TLABEL .MSINCR 

-1IF LT TSTSTMAC, .MEXIT 

«RADIX 10 

M$TLABEL \TSTESTNUN, \T$TSTSEQ 


-RADIX 8 
MS$INCR TSTSTSEQ 
M$GNINS ya C$PNTB> 


TRAP $ 
»MEXIT 
- ENDC 
IF EQ SVCINS 
TRAP C$PNTB 
»MEXIT 


-ENDC 
-IF GT SVCINS 


MOV 


#2,- (SP) 


SP,RO 


“CZUDEAO PDP=11 UDA DI 
| GLOBAL SUBROUTINES SECTION 


012654 


012654 062706 000006 


11 012660 
012660 





«LIST 


-ENDC 

. IRP 
MSGNINS 
-ENDM 
MSGNINS 


H 4 
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TRAP C$PNTB 
»NLIST 


N,<\TSARGCNT *2+2> 
<ADD AN, SP> 


<ADD #6,SP> 


-IF LT SVCINS 
ADD 


-MEXIT 


“ENDC 
-IF EQ SVCINS 
ADD 


-MEXIT 


- ENDC 
oMEXIT 
- ENDC 
IF B 
MSPRINT 
-MEXIT 
- FNDC 
aT © 
MSPRINT 
-MEXIT 
- ENDC 
iF © 
MSPRINT 
-MEXIT 
- ENDC 
ar © 
MSPRINT 
-MEXIT 
- ENDC 
-IF B 
MSPRINT 
-MEXIT 
-ENDC 
-1F B 
MSPRINT 
-MEXIT 
-ENDC 
MS$PRINT 


EN 
M$GETS 


#6,SP 


#6,SP 


-ENDC 
-IF GT SVCINS 
IST 


na 1ST ADD #6,SP 


<> 
C$PNTIB,AINTM2,<R2>,<> 

<> 

C$PNIB,AINIM2,<R2>,<>,<> 

<> 

CS$PNTB,AINTM2,<R2>,<>,<>,<> 

<> 

C$PNTB,AINIM2,<R2>,<>,<>,<>,<> 

<> 
C$PNTB,AINTM2,<R2>,<>,<>,<>,<>,<> 


<> 
CS$PNIB,AINTIM2,<R2>,<>,<>,<>,<>,<>,<> 


C$PNTB,AINTM2, <R2>,<>, <>, <>, <>, <2, 02,0 
ENDMSG 


M$POP ,M$GNTAG ,M$SVC ,MSENDERR 

TSNS, TSNESTLEV, TSTEMP 

M$GETS MSDECR 

T$NESTLEV 

TSNESTLEV ; MACRO T$NS UNDERFLOW 


TSNS, \TSNESTLEV, TSTEMP 


SEQ 0254 


——— 
' 
j 


| 
| 
j 
| 
} 


i 
i 
j 





012660 


012660 
012660 
012660 


012660 
012660 


012660 


012660 


012662 


012662 
012662 
012662 


012662 


000011 
177777 


010000 


104423 


000041 


000040 


000000 


000011 
010011 


010012 
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GLOBAL SUBROUTINES SECTION 


TSTEMP=T$NSO 
MS$DECR TS$NESTLEV 
TSNESTLEV=TSNESTLEV=1 
-IF EQ FSMSG-TSTEMP 
MSGNTAG L,TS$MSG 

° M$GEN 

M$GEN L,\TS$MSG,SVCTAG 
-IF LE SVCTAG 


L10010: 


-NLIST 
S$LSYM=TSLSYM 
M$SVC C$MSG 
-MCALL M$GNINS ,M$TSTLAB 
M$TSTLAB 
-MCALL_ M$TLABEL .MSINCR 
-1IF LT TSTSTMAC, .MEXIT 
-RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 
M$INCR TS$TSTSEQ 
MSGNINS <TRAP (C$MSG> 
-IF LT SVCINS 
TRAP C$MSG 
»MEXIT 


-ENDC 

-IF EQ SVCINS 
TRAP 

-MEXIT 

- ENDC 

-IF GT SVCINS 


C$MSG 


-NLIST 
.ENDC 
1 SMSG=F SEND 
MSENDERR ENDMSG, TSTEMP 
.ENDC 


BGNMSG INTR3 7 INPROPER RESPONSE 
-MCALL_ _M$PUSH,M$INCR ,MSGNGBL 
I $MSG=F $BGN 
M$PUSH TS$NS,TSNESTLEV,F $MSG 
-MCALL MS$INCR,MSSETS 
M$INCR T$NESTLEV 
TSNESTLEV=TSNESTLEV+1 
nt 1A TSNS,, \TSNESTLEV,F SMSG 


$N SG 
T$$MSG=T$TAGNUM 
MS$INCR TSTAGNUM 
T$TAGNUM=T$TAGNUM+ 1 
M$GNGBL INTR3 
-MCALL M$GEN 


TRAP 


C$MSG 


SEQ 0255 


——_-_—___---- ——---- -—- —---—-—- —-- 


GLOBAL SUBROUT I ION 


012662 


| 
| 
! 
| 
| 
| 012662 


14 012662 


012662 


000001 
01 2662 


012662 


012662 


012662 


012662 


012662 012746 013331 





J 4 
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“a NB, INTR3 


M$GEN ——INTR3,:,SVCGBL, 


M$GEN INTR3,:,SVCGBL.< > 
IF LE SVCGBL 


INTR3:: 


INTR3 
-MEXIT 
-ENDC 
»NLIS7 
-ENDC 
- ENDC 
PRINTB #INTM4 
-MCALL M$PRINT 
-I1F B  #INTMG 
-ERROR ;MISSING FORMAT 
»MEXIT 
- ENDC 


SA Se: 

MSPRINT CS$PNTB,AINTM4 
-MCALL MS$COUNT .MSPUT .MSGNINS ,M$SVC 
TSARGCNT=1 

MSCOUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


-IF NB <> 
M$SCOUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 
DC 


“IF NB <> 
f ~~ spades 
N 
IRP N,<\TS$ARGCNT> 
M$PUT #N,AINTM4,<>,<>,<>,<>,<>,<>, <>, 


M$PUT #1,4INTM4,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 

-IF NB <#INTM4> 

M$PUT <#INTMG>, <>, <>, <>, <>, <>, <5>,0>,<> 
-MCALL M$PUT1 


-IF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<,<>,<> 
- ENDC 


-1F NB <#INTM4> 

MSPUT1 #INTM4 

—— M$GNINS 

M$GNiNS <MOV #INTM4 ,~(SP)> 

-IF LT SVCINS 

MOV MINTMG ,~-(SP) 

-MEXIT 

- ENDC 

JF EQ SVCINS 
MOV 

oMEXIT 

- ENDC 

IF GT SVCINS 


MINTM4 ,~(SP) 


ee 


SEQ 0256 


ee re ee 


| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL=81 15:27:47 pace $9-17 


GLOBAL SUBROUTINES SECTION 
»LIST 


| 

| 

| 
"ERROR 


012666 


‘012666 
IF LT 


MOV 
»MEXIT 
-ENDC 


-1F EQ 
012666 012746 000001 


—— 


of 
M$GNINS <MOV 


»NLIST 


B,<AINTM4> 
sILL. ARG. “@INTM4'* ONLY ‘B’' IS ALLOWED. 


<CLR -(SP)> 
<BISB- , (SP)> 


<f#1> 
#1 
MSGNINS 


#1,~-(SP)> 
SVCINS 
#1,-(SP) 


SVCINS 
MOV #1,-(SP) 


SVCINS 


«NLIST 


ir DIF B,<#1> 


. ERROR 
=MEXIT 
- ENDC 


E 
M$GNINS <CLR 


SILL. ARG. ‘W1'' ONLY ‘BY IS ALLOWED. 


-(SP)> 
—— <BISB-,(SP)> 
- ENDC 
012672 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
Vv SP,RO 
»MEXIT 
-ENDC 
IF EQ SVCINS 
012672 010600 MOV sP,RO 
»MEXIT 
- ENDC 
-IF GT SVCINS 
oL IST 
»NLIST 
-ENDC 
012674 M$SVC = =C$PNTB 
-MCALL M$GNINS ,MS$TSTLAB 





MOV 


MOV 


MOV 


SEQ 0257 


MINTM4 ,=(SP) 


#1,-(SP) 


SP ,RO 


CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUTINES S$ 


012674 


012674 


012674 


012676 


012676 


I 
ECTION 


104414 


062706 000004 
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M$TSTLAB 
-MCALL_ MS$TLABEL,MS$INCR 
-1IF LT TSTSTMAC, .MEXIT 


10 
er ge \TSTESTNUN, \TSTSTSEQ 


TRAP C$PNTB 
»MEXI 
- ENDC 
-IF EQ SVCINS 

TRAP C$PNTB 
-MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 

-NLIST 

ENDC 


"IRP  —N, <\ T$ARGCNT*2+2> 
MSGNINS <ADD — #N, SP> 


. ENDM 

MS$GNINS <ADD #4 ,SP> 

-IF LT SVCINS 

ADD #4,SP 

»MEXIT 

-ENDC 

IF EQ SVCINS 
ADD 

»MEXIT 

- ENDC 

-IF GT SVCINS 


#4,SP 


»NLIST 
-ENDC 
«MEXIT 


it... 6S 

MSPRINT C$PNTB,A4INTMG,<> 

B <> 

MSPRINT C$PNTB,AINTM4,<>,<> 


> S £ 
MS$PRINT CS$PNTB,4INTM4,<>,<>,<> 


7 B <> 
MSPRINT C$PNTB,#INIM4,<>,<>,<>,<> 


IF B <> 


1 


SEQ 0258 


TRAP C$PNTB 


ADD #4 SP 


Seek pase eee eee J 
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eid CSPNTB,A4INIMG,<>,<>,<>,<>,<> 


fe. 
MSPRINT CS$PNTB,AINIMG,<>,<>,<>,<>,<>,<> 


a. oe: ee 
MSPRINT CS$PNTB,AINIMG,<>,<>,<>,<>,<>,<>,<> 


EN 

MSPRINT CSPNTB.AINTM4, <>, <>, <>, <>, <>, <>, <>, <> 
15 012702 PRINTB #INTMS,R2 

“DY M$PRINT 


#INTMS 
-ERROR ;MISSING FORMAT 
. <R2> 
MSPRINT CS$PNTB,4INTMS 


‘ <> 
012702 MSPRINT C$PNTB,A4INTM5, <R2> 
-MCALL MS$COUNT ,MSPUT .MSGNINS .M$SVC 
000001 TSARGCNT=1 
012702 MSCOUNT TSARGCNT,<R2>,<>,<>,<>,<>,<>,<>,<> 
<> 


.IF NB 
—— TSARGCNT <>, <>, <>, <>, <>, <>, <>, > 
N 


. IF NB <R2> 
000002 ( ~ muah 
“IRP —N, <\ TSARGCNT> | 
MS$PUT #N,AINTMS,<R2>,<>,<>,<>,<>,<>,<>,<> 


012702 MSPUT #2,4INTMS,<R2>,<>,<>,<>,<>,<>,<>,© 
MSPUT 1 


-IF NB <AINTMS> 
012702 M$PUT <M#INTMS>,<R2>,<>,<>,<>,<>,<>,<>,<> 
MSPUT1 
-IF NB <R2> 
012702 M$PUT <R2>,<>,<>,<>,<>, <>, <>, <2, 
or. M$PUT1 
<> 


M$PUT <>, <>, <>, <>, <>, <>, ©, ©,©> 
-IF NB <R2> 

012702 M$PUT1 R2 
“RY M$GNINS 

012702 M$GNINS <MoV R2,-(SP)> 


-IF LT SVCINS 
MOV R2,-(SP) 
-MEXIT 


-ENDC 
-IF EQ SVCINS 








GLOBAL SUBROUTINES SECTION 
012702 01024¢ 


012704 


012704 


012704 012746 013411 


012710 


012710 


012710 012746 000002 


ISLS sales acca a 


N 4 
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MOV R2,-(SP) 
oMEXIT 
-ENDC 
-IF GT SVCINS 
»LIST 
MOV 
»NLIST 


"IF DIF B,<R2> 
"ERROR :ILL. ARG. ‘2°’ ONLY 'B'' IS ALLOWED. 


M$GNINS <CLR =(SP)> 
MSGNINS <BISB- ,(SP)> 


IF NB <#INTM5> 
MS$PUT1 #INTMS 
“2% M$GNINS 
MS$GNINS <MOV #INTM5 ,~(SP)> 
-IF LT SVCINS 

MOV #INTMS ,=(SP) 

-MEXIT 


IF EQ SVCINS 
MOV 

-MEXIT 

« ENDC 

-IF GT SVCINS 

»LIST 


#INTMS ,=(SP) 


eNLIST 


-IF DIF B,<#INTMS> 
ERROR ;ILL. ARG. '#INTMS'’ ONLY ‘B’’ IS ALLOWED. 


M$GNINS <CLR = (SP)> 
M$GNINS <BISB- ,(SP)> 


<#2> 
#2 
—s ¥ M$GNINS 
M$GNINS <MOV #2,-(SP)> 
-IF LT SVCINS 
MOV #2,-(SP) 
-MEXIT 
-ENDC 
IF EQ SVCINS 
MOV #2,~(SP) 


SEQ 0260 


R2,-(SP) 


#INTMS ,=(SP) 





8B 5 
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CZUDEAO PDP=11 UDA D 
GLOBAL SUBROUTINES S$ 


-ENDC 
-IF GT SVCINS 
-LIST 
MOV #2,-(SP) 


«NLIST 
-ENDC 


sat? 

-IF DIF B,<#2> 

«ERROR ;ILL. ARG. '#2"' ONLY ‘8’ IS ALLOWED. 
MEXIT 


« ENDC 
M$GNINS <CLR -(SP)> 
eo ees <BISB-,(SP)> 


-ENDC 

012714 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SP,RO 
»MEXIT 

-ENDC 

IF EQ SVCINS 

MOV 

-MEXIT 

- ENDC 

IF GT SVCINS 
«LIST 


012714 010600 SP,RO 


MOV SP,RO 
eNLIST 


- ENDC 
012716 M$SVC C$PNTB 
-MCALL M$GNINS ,M$TSTLAB 
012716 MSTSTLAB 
-MCALL_ M$TLABEL.MS$INCR 
TIF LT TSTSTMAC, .MEXIT 


«RADIX 10 
M$TLABEL \TSTESTNUN, \T$TSTSEQ 
«RADIX 8 
M$INCR_ TSTSTSEQ 
012716 M$GNINS <TRAP (C$PNTB> 


~MEXIT 
« ENDC 
-IF EQ SVCINS 
012716 104414 TRAP C$PNTB 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 
TRAP C$PNTB 
»NLIST 


- ENDC 
. IRP N,<\TSARGCNT*2+2> 
M$GNINS <ADD AN, SP> 


- ENDM 
012720 M$GNINS <ADD #6,SP> 


I LTT 


GLOBAL SUBROUTINES SECTION 


012720 062706 000006 


16 012724 


012724 
000001 


012724 
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-IF LT SVCINS 

ADD #6, SP 

-MEXIT 

- ENDC 

-I1F EQ SVCINS 

ADD 

-MEXIT 

-ENDC 

-IF GT SVCINS 
IST 


#€é,SP 


eNLIST 
-ENDC 
«MEXIT 
-ENDC 
-IF B <> 
MSPRINT CS$PNTB,4INTMS,<R2>,<> 


<> 
MSPRINT C$PNTB,AINIMS,<R2>,<>,<> 
<> 
MSPRINT CS$PNTB,4INTMS,<R2>,<>,<>,<> 
. <> 
MSPRINT CEPNIB,AINIMS, <R2>,<>,<>,<>,<> 
<> 
MSPRINT C$PNTB,AINTMS,<R2>,<>,<>,<>,<>,<> 


a <> 
MSPRINT C$PNTB,AINTMS,<R2>,<>,<>,<>,<>,<>,<> 


-EN 

MSPRINT CS$PNTB,A4INIMS,<R2>,<>,<>,<>,<>,<>,<>,<> 
PRINTB #INTM6,R3 

7 MS$PRINT 


#INTM6 

-ERROR ;MISSING FORMAT 
<R3> 

MSPRINT C$PNTB,A4INTM6 


<> 
MSPRINT C$PNTB,A4INTM6,<R5> 
-MCALL MS$COUNT,MSPUT ,M$GNINS ,M$SVC 
TSARGCNT=1 
aed FOARGDS <R3>, <>, <>, <>, <>, 2, <>, <> 


F NB < 
MS COUNT re ee ee 


ADD 


#6,SP 


SEQ 0262 








> 
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IF NB <R3> 
000002 / *~~ pemiebeuppapge’* 
“IRP —'N, <\ TSARGCNT> 
MS$PUT #N,A#INTM6,<R3>,<>,<>,<>,<>,<>,<>,<> 


012724 M$PUT #&2,MINTM6,<R3>,<>,<>,<>,<>,<>,O,0 
M$PUT1 


.IF NB <#INTM6> 

012724 MS$PUT <#INTM6>,<R3>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
-IF NB <R3> 

012724 M$PUT <R3>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 
IF NB <> 
MS$PUT <><, <>, ,<, 2,0, 


° NB <R3> 
012724 MS$PUT1 R 
-MCALL M$GNINS 


-IF B 
012724 MSGNINS <MOV R3,-(SP)> 
-IF LT SVCINS 
MOV R3,-(SP) 
-MEXIT 
- ENDC 
IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 
IST 


012724 010346 R3,-(SP) 


«NLIST 


.IF DIF B,<R3> 
-ERROR ;ILL. ARG. ‘R3°* ONLY ‘'B’’ IS ALLOWED. 


MS$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


-IF NB <#INTM6> 
012726 MSPUT1 #INTM6 
-MCALL M$GNINS 


-IF B 
012726 M$GNINS <MOV MINTM6,~(SP)> 
-IF LT SVCINS 
MOV #INTM6,~-(SP) 
»MEXIT 


- ENDC 
IF EQ SVCINS 
MOV 


012726 012746 013435 


#INTM6,~(SP) 





R3,-(SP) 


SEQ 0263 
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| 
012732 
012732 


012732 012746 000002 


012736 


012736 010600 
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»MEXIT 
-ENDC 
-IF GT SVCINS 
. IST 


MOV 
«NLIST 


-IF DIF B,<#INTM6> 
-ERROR ;1LL. ARG. ‘#INTM6'' ONLY 'B'' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
M$GNINS <BISB- ,(SP)> 


: <f#2> 
MSPUT1 #2 
-MCALL M$GNINS 


IF © 
M$GNINS <MOV 
-IF LT SVCINS 

Vv #2,-(SP) 
-MEXIT R 
- ENDC 
-IF EQ SVCINS 

MOV 

»MEXIT 


-ENDC 
IF GT SVCINS 
LIST 


#2,-(SP)> 


#2,-(SP) 


MOV 
»NLIST 


-IF DIF B,<#2> 
-ERROR ;ILL. ARG. ‘#2°' ONLY ‘'B'' IS ALLOWED. 


M$GNINS <CLR _ =(SP)> 
M$GNINS <BISB- ,(SP)> 


M$GNINS <MOV 
-IF LT SVCINS 
MOV SP,RO 
-MEXIT 


- ENDC 
IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
“IF GT SVCINS 
LIST 


o~ 


SP,RO> 


SP,RO 


«NLIST 


SEQ 0264 


#INTM6,-(SP) 


f 
| 
| 
| 
| 
#2,-(SP) 
SP RO 
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012740 


012760 104414 


012742 


012742 062706 000006 
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- ENDC 

M$SVC =C$PNTB 

-MCALL MSGNINS,MS$TSTLAB 
MSTSTLAB 

-MCALL_ M$TLABEL .MSINCR 
-1IF LT TSTSTMAC, .MEXIT 
«RADIX 10 

MS$TLABEL \TSTESTNUN, \T$TSTSEQ 
-RADIX 8 

MSINCR TSTSTSEQ 

M$GNINS <TRAP (C$PNTB> 
if LT SVCINS 

TRAP CSPNTB 


-MEXIT 
-ENDC 
IF EQ SVCINS 

TRAP C$PNTB 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 

«NLIST 

ENDC 


“IRP  —sON, <\ T$ARGCNT#242> 
MSGNINS <ADD -#N, SP> 


-EN 

M$GNINS <ADD #6, SP> 

-IF LT SVCINS 

ADD #6,SP 

-MEXIT 

- ENDC 

-IF EQ SVCINS 

ADD 

-MEXIT 

- ENDC 

-I1f GT SVCINS 
IST 


#6, SP 


eNLIST 


. <> 
MSPRINT C$PNTB,AINTM6,<R35>,<> 
7: <> 
MSPRINT CS$PNTB,4INTM6,<R3>,<>,<> 
I <> 
MSPRINT C$PNTB,#INTM6,<R3>,<>,<>,<> 


af 8 += 
M$PRINT C$PNTB,#INTM6,<R3>,<>,<>,<>,<> 


TRAP 


ADD 


aoe 


SEQ 0265 


C$PNTB 


ooo —_ a 
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“PY 
no 


-MEXIT 
«ENDC 


a S's 

MS$PRINT CS$PNTB,4INTM6,<R3>,<>,<>,<>,<>,<> 
-MEAIT 

-ENDC 


we. 
MS$PRINT C$PNTB,#INIM6,<R3>,<>, <>, <>, <>, <>, <> 
-MEXIT 


j 
! 
| 


-ENDC 
MSPRINT CSPNTB,AINTMG, <R35>,<>,<>,<>, <>, <>,<>, > 
ENDMSG 


17 012746 S 
-MCALL M$POP,MS$GNTAG,M$SVC ,MSENDERR 
012746 MSPOP TS$NS,TSNESTLEV,TSTEMP 
-MCALL M$GETS,MS$DECR 
-IF LT TS$NESTLEV 
«ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 


C 
012746 MSGETS TSNS,\TSNESTLEV,TSTEMP 
0000171 TSTEMP=T$NSO 
012746 M$DECR TS$NESTLEV 
177777 TSNESTLEV=TSNESTLEV~1 
-IF EQ FSMSG-TSTEMP 
012746 MS$GNTAG L,T$$MSG 
-MCALL M$GEN 
012746 M$GEN L,\TS$$MSG,SVCTAG 
-IF LE SVCTAG 
012746 L10011: 


L10011: 


-NLIST 
010000 S$LSYM=T$LSYM 
012746 M$SVC  C$MSG 
-MCALL M$GNINS,M$TSTLAB 
012746 M$TSTLAB 
-MCALL MS$TLABEL,MSINCR 
-1IF LT TSTSTMAC. .MEXIT 
-RADIX 10 
MSTLABEL , \T$TESTNUN, \TSTSTSEQ 


«RADIX 
M$INCR TS$TSTSEQ 
012746 M$GNINS <TRAP C$MSG> 

IF LT SVCINS 

TRAP C$MSG 

»MEXIT 

EN 


- ENDC 

-IF EQ SVCINS 
012746 104423 TRAP C$MSG 
-MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 


TRAP C$MSG 





—_——— —- - 
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| 
| 000041 


000040 


000000 
012750 


000011 
010012 
010013 


012750 
012750 


012750 
012750 


20 012750 


012750 


000001 
012750 


012750 
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-ENDC 
I$MSG=F SEND 


IFF 
MSENDERR ENDMSG, TSTEMP 
~ENDC 


BGNMSG INTBF RING BUFFER NOT CLEARED 
-MCALL _MSPUSH,M$INCR ,M$GNGBL 
1 $MSG=F $8GN 
MSPUSH TS$NS,TSNESTLEV,FS$MSG 
-MCALL MS$INCR,MS$SETS 
M$INCR T$NESTLEV 
TSNESTLEV=TSNESTLEV+1 
M$SETS Pe cacti futon 


T$TAGNUM=T$TAGNUM+ 1 
M$GNGBL INTBF 
-MCALL M$GEN 


. IF NB, INTBF 
JF NB, 
M$GEN INTBF,:,SVCGBL, 
-ENDC 
oat Oe 
ME$GEN INTBF,:,SVCGBL,< > 
-IF LE SVCGBL 
INTBF 
~MEXIT 
~ENDC 
LIST 
INTBF:: 
-NLIST 
. ENDC 
-ENDC 
PRINTB #INTBIM 
-MCALL M$PRINT 


-IF B #INTBIM 
-ERROR ;MISSING FORMAT 


ae eS 

M$PRINT C$PNTB,4INTBIM 
-MCALL MS$COUNT ,M$PUT ,M$GNINS ,M$SVC 
TSARGCNT=1 

M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


IF NB <> 
M$COUNT TS$ARGCNT,<>,<>,<>,<>,<>,<>,0,02 
DC 


IF NB <> 
TSARGCNT=TSARGCNT +1 


NDC 
. JRP N,<\TSARGCNT> 
M$PUT #N,A#INTBIM,<>,<>,<>,<>,<>,<2,02,0 


. ENDM 
M$PUT #1, M#INTBIM,<>,<>,<>,<>,<2, 0,2, 
-MCALL M$PUT1 


SEQ 0267 


-——_ T a a 
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.IF NB <#INTBIM> 
012750 M$PUT <M#INTBIM>,<>,<>,<>,<>,<>,<2,2,© 
-MCALL M$PUT1 
-IF NB <> 
MS$PUT <>, <>, <?, <2, <>,<>,<>,<>,¢> 


, -IF NB <#INTBIM> 
012750 MS$PUT1 #INTBIM 
Hn 3 MSGNINS 
012750 M$GNINS <MOV #INTBIM,=(SP)> 
-I1F LT SVCINS 
MOV #INTBiIM,=(SP) 
-MEXIT 


- ENDC 
-1F EQ SVCINS 
MOV 
oMEXIT 
- ENDC 
-IF GT SVCINS 
IST 


012750 012746 013461 #INTBIM,=(SP) 


MOV 
»NLIST 
- ENDC 


of 
-IF DIF B,<#INTBIM> 
-ERROR ;ILL. ARG. *#INTBIM’’ ONLY ‘'B’ IS ALLOWED. 


~EN 
MS$GNINS <CLR -(SP)> 
M$GNINS <BISB ,(SP)> 


-IF NB <#1> 
012754 M$PUT1 #1 
-MCALL M$GNINS 


of 
012754 M$GNINS <MOV #1,-(SP)> 
-IF LT SVCINS 
MOV #1,-(SP) 
-MEXIT 
- ENDC 
IF EQ SVCINS 
MOV 

-MEXIT 
-ENDC 
-IF GT SVCINS 

IST 


012754 012746 000001 #1,-(SP) 


»NLIST 
-ENDC 


IFF 

-IF DIF B,<#1> 

ERROR ;ILL. ARG. *#1"' ONLY ‘BY IS ALLOWED. 
»MEXIT 

» ENDC 


SEQ 0268 


#INTBIM,=(SP) 


#1 ,-(SP) 


cc - a ee 
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GLOBAL SUBROUTINES SECTION 


012760 


012760 010600 


012762 
012762 


012762 


012764 


012764 062706 000004 


012762 104414 


M$GNINS <CLR =-(SP)> 
M$GNINS <BISB- ,(SP)> 
ENDC 


M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV 


-MEXIT 
-IF EQ SVCINS 

MOV SP ,RO 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 

«NLIST 


« ENDC 
M$SVC C$PNTB 

-MCALL M$GNINS,MS$TSTLAB 
MS$TSTLAB 

-MCALL_ MS$TLABEL .MSINCR 
LIIF LT TSTSTMAC. -MEXIT 


. 10 
wee \TSTESTNUN, \TSTSTSEQ 


I 
MS$INCR TS$TSTSEQ 
M$GNINS <TRAP C$PNTB> 
-IF LT SVCINS 
TRAP C$PNTB 


»MEXIT 
-ENDC 
IF EQ SVCINS 

TRAP C$PNTB 
-MEXIT 
- ENDC 
-IF GT SVCINS 
. IST 

»NLIST 


- ENDC 
. IRP N,<\TSARGCNT *2+2> 
= <ADD #N,SP> 


EN 
M$GNINS <ADD #4 ,SP> 
yd LT SVCINS 


#4 ,SP 
»MEXIT 
- ENDC 
IF EQ SVCINS 

ADD #4, SP 
-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 

»NLIST 


TRAP 


ADD 


SP,RO 


C$PNTB 


#4 SP 


SEQ 0269 
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-ENDC 
»MEXIT 


-IF B <> 

MSPRINT C$PNTB,AINTBIM, <> 

. S.@& 

MSPRINT CS$PNTB,4INTBIM,<>,<> 

a | 

M$PRINT C$PNTB,AINTBIM,<>,<>,<> 

-IF B <> 

MSPRINT C$PNTB,4INTBIM,<>,<>,<>,<> 

. Ss <& 

MSPRINT C$PNTB,AINTBIM,<>,<>,<>,<>,<> 
I <> 

MSPRINT C$PNTB,AINTBIM,<>,<>,<>,<>,<>,<> 


a. = 
MS$PRINT C$PNIB,4INTBIM,<>,<>,<>,<>,<>,<>,<> 


EN 

MS$PRINT C$PNTB,AINTBIM, <>, <>,<>,<>,<>,<>,<>,> 
PRINTX #INTB2M 

-MCALL M$PRINT 

-IF B #INTB2M 

-ERROR ;MISSING FORMAT 


<> 

MSPRINT C$PNTX ,AINTB2M 

-MCALL MS$COUNT ,MSPUT ,MSGNINS ,M$SVC 
TSARGCNT=1 

M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<©,<> 
-I1F NB <> 

ae TSARGCNT,, <>, <>, <>, <7, <>,<2,0O,0 


“IF NB <> 

~~ aaa eemaenali 

. IRP N,<\TS$ARGCNT> 

M$PUT #N,#INTB2M,<>,<>,<>,<>,<>,<>, <2, 


M$PUT #1,4INTB2M,<>,<>,<>,<>,<>,<,O,© 
-MCALL M$PUT1 

.IF NB <#INTB2M> 

M$PUT <MINTB2M>,<>,<>,<>,<2,6>,©>,<4,02 
M$PUT1 


SEQ 0270 


————————————————————————————— eee Qh 2.0" 
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ION 


“n>Y 
no 


-I1F NB <> 
M$PUT <>, ,09,0,02,0O,0O,0 


-IF NB <#INTB2M> 
012770 M$PUT1 #INTB2M 
-MCALL M$GNINS 


M$GNINS <MOV #INTB2M,=(SP)> 

-IF LT SVCINS 

MOV #INTB2M,=(SP) 

-MEXIT 

« ENDC 

-IF EQ SVCINS 
MOV 

-MEXIT 

-IF GT SVCINS 

LIST 


012770 


012770 012746 013530 #INTB2M,=(SP) 


MOV #INTB2M,=(SP) 
-NLIST 
- ENDC 
-IFF 
-IF DIF B,<#INTB2M> 
«ERROR ;ILL. ARG. *#INTB2M’’ ONLY ‘'B"’ IS ALLOWED. 


M$GNINS <CLR -(SP)> 
M$GNINS <BISB- ,(SP)> 


-IF NB <A> 
012774 MSPUT1 #1 
-MCALL M$GNINS 


IF 
012774 M$GNINS <MOV #1,-(SP)> 


»MEXIT 
- ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 
LIST ; 


012774 012746 000001 


#1,-(SP) 


MOV #1,-(SP) 
eNLIST 
- ENDC 


-1FF 

-IF DIF B,<#1> 

-ERROR ;ILL. ARG. ‘#1°* ONLY ‘BY IS ALLOWED. 
MEXIT 


M$GNINS <CLR -(SP)> 
M$GNINS <BISB- ,(SP)> 
-ENDC 
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- ENDC 

013000 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SP ,RO 


EN 
-IF EQ SVCINS 

013000 010600 MOV SP,RO 
»MEXIT 


-ENDC 
-IF GT SVCINS 
-LIST 
MOV SP,RO 
«NLIST 


-ENDC 
013002 M$SVC C$PN 
»MCALL MSGNINS, M$TSTLAB 
013002 MSTSTLAB 
-MCALL_ M$TLABEL,M$INCR 
-IIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
M$TLABEL \TSTESTNUN, \T$TSTSEQ 
-RADIX 8 
M$INCR TSTSTSEQ 
013002 MSGNINS riya CSPNTX> 


EN 
-IF EQ SVCINS 

013002 104415 TRAP CSPNTX 
»MEXIT 


- ENDC 
IF GT SVCINS 
-LIST 
TRAP CSPNTX 
eNLIST 


. ENDC 
. IRP N,<\TSARGCNT *2+2> 
MSGNINS <ADD #N,SP> 


. ENDM 
013004 M$GNINS <ADD 4 ,SP> 
-IF LT SVCINS 
ADD #4, SP 
-MEXIT 
-IF EQ SVCINS 
013004 062706 000004 ADD #4, SP 
<" »MEXIT 


-ENDC 

-IF GT SVCINS 
ADD a4 ,SP 

eNLIST 

» ENDC 


»MEXIT 
- ENDC 
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-IF B= <> 
MSPRINT C$PNTX,4INTB2M,<> 
-MEXIT 


if 6 & 
MSPRINT CS$PNTX,#INTB2M,<>,<> 


-IF B <> 
MSPRINT CS$PNTX,4INTB2M,<>,<>,<>,<> 


a. = 
MSPRINT CSPNTX,AINTB2M,<>,<>,<>,<>,<> 
-MEXIT ; 


—— Se . & 
MS$PRINT CSPNTX,AINTB2M,<>,<>,<>,<>,<>,<>- 


-I <> 
MSPRINT CS$PNTX,AINTB2M,<>,<>,<>,<>,<>,<>,<> 


MSPRINT CS$PNTX,AINTB2M, <>, <>,<>,<>,<>,<>,<>,<> 
22 013010 PRINTX #INTB3M 

-MCALL M$PRINT 

-1F B  #INTB3M 

«ERROR ;MISSING FORMAT 


013010 are C$PNTX,# NTB3M 
MS$COUNT, WMSPUT, MSGNINS ,M$SVC 
000001 iSARGCNT- 1 
013010 MSCOUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


-IF NB <> 
oe TSARGCNT ,, <>, <>, <>,<>,<>,<>,<>,0> 


-IFB <& 
MSPRINT CS$PNTX,#INTB2M,<>,<>,<> ‘ 


-IF NB <> 

TEARGCHT = TEARGCNT ON 

IRP N,<\TS$ARGCNT> 

M$PUT #N,4INTB3M,<>,<>,<>,<>,<>,<>,<>,<> 


013010 M$PUT #1,4INTB3M,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 

IF NB <#INTB3M> 

M$PUT <#INTB3M>,<>,<>,<>,<>,<>,<>,<>,<> 
—% erur 


M$. JT > >, 22 ©. © ,0),0,© 


013010 
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013010 


013010 


013010 012746 013575 


013014 


013014 


013014 012746 000001 


015020 
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IF NB <#INTB3M> 
M$PUT1 #INTB3M 
“hy M$GNINS 
M$GNINS <MOV #iNTB3M,-(SP)> 
-IF LT SVCINS 

MOV #INTB3M,=(SP) 


-MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV #INTB3M,-(SP) 
-MEXIT 


-ENDC 
-IF GT SVCINS 
-LIST 


«NLIST 


-IF DIF B,<#INTB3M> 
-ERROR ;ILL. ARG. '#INTB3M'’ ONLY ‘B’' IS ALLOWED. 


MSGNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 


-1F NB fe 
a 
“2% M$GNINS 
MSGNINE <MOV 
-IF LT SVCINS 
MOV #1,-(SP) 
-MEXIT 
- ENDC 
IF EQ SVCINS 
MOV 
»MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 


#1,-(SP)> 


#1,-(SP) 


eNLIST 
- ENDC 


 1FF 

IF DIF B,<#1> 

-ERROR ;ILL. ARG. ‘'#1°* ONLY ‘BY IS ALLOWED. 
»MEXIT 


-ENDC 

M$GNINS <CLR -(SP)> 
M$GNINS <BISB-— ,(SP)> 
-ENDC 

-ENDC 

MS$GNINS <MOV SP,RO> 
IF LT SVCINS 


a a a a a 


SEQ 0274 


#INTB3M,~(SP) 


#1,-(SP) 
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MOV SP ,RO 
-MEXIT 


-ENDC 
IF EQ SVCINS 


013020 010600 MOV SP ,RO 
-MEXIT 
- ENDC 
a SVCINS 
MOV SP,RO 
eNLIST 
- ENDC 
013022 M$SVC C$PNT 
-MCALL MSGNINS. MS$TSTLAB 
013022 MSTSTLAB 


-MCALL_ M$TLABEL .MSINCR 
-IIF LT TSTSTMAC, .MEXIT 


° 10 
ot me \TSTESTNUN, \T$STSTSEQ 


. MS$INCR T$TSTSEQ 
013022 M$GNINS <TRAP  C$PNTX> 
IF LT SVCINS 
TRAP CSPNTX 
IMEXIT 


. ENDC 
-IF EQ SVCINS 

013022 104415 TRAP CSPNTX 
-MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


TRAP CSPNTX 


-NLIST 
~ENDC 
. IRP N,<\TSARGCNT *2+2> 
MSGNI NS <ADD 4#N,SP> 
013024 MSGNINS <ADD #4 ,SP> 
-IF LT SVCINS 
ADD #4,SP 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
013024 062706 000004 ADD #4,SP 
-MEXIT 
~ENDC 
IF GT SVCINS 
LIST 
ADD #4 SP 
-NLIST 
.ENDC 
MEXIT 
- ENDC 
IF B 





[= 
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| 

| 

-ENDC 
IF <> 

| MS$PRINT CS$PNTX,#INTB3M,<>,<> 
| 


. B <> 
MSPRINT CS$PNTX,4INTB3M,<>,<>,<> 


. 
rn ed 
n2 al 
—) 
Oo 


» S - ae 
MSPRINT CSPNTX,#INTB3M,<>,<>,<>,<> 
| 
.IF 8B <> 
MSPRINT C$PNTX,AINTB3M,<>,<>,<>,<>,<> 
awe = 
MS$PRINT CS$PNTX,AINTB3M,<>,<>,<>,<>,<>,<> 


Fo = 
M$PRINT CS$PNTX,AINTB3M,<>,<>,<>,<>,<>,<>,<> 


-ENDC 

MSPRINT CS$PNTX,4INTB3M,<>,<>,<>,<>,<>, <>, <>, 
23 013030 016502 000010 MOV C.RING(R5S) ,R2 
24 013034 012703 000004 MOV #RNGLEN,R3 
25 013040 INTBFL: PRINTX #INTB4M,R2, (R2) 

-MCALL MS$PRINT 

-IF B #INTB4M : 

-ERROR ;MISSING FORMAT 


4 <R2> 
MSPRINT CSPNTX,AINTB4M 


<(R2)> 
MSPRINT C$PNTX,A4INTB4M,<R2> 


‘ oS £2 
013040 MSPRINT C$PNIX,AINTB4M,<R2>,<(R2)> 
-MCALL MS$COUNT ,MSPUT ,MSGNINS ,M$SVC 
000001 TSARGCNT=1 
013040 MSCOUNT TSARGCNT,<R2>,<(R2)>,<>,<>,<>, <>, <>, <> 
.1F NB <(R2)> 
013040 M$COUNT TSARGCNT,<(R2)>,<>,<>,<>,<>,<>,<>,<> 


IF NB <> 
a TSARGCNT, <>, <>, <>, <>, <>,<>,O,©> 
N 


"IF NB <(R2)> 
TSARGCNT=TSARGCNT +1 


“ENDC 
IF NB <R2> 





ees eRe a Ree, Sale ane ee 
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000002 yeaa 


. IRP N,<\TSARGCNT> 
M$PUT #N,#INTB4M,<R2>,<(R2)>,<>,<>,<>,<>,<° <> 


013040 M$PUT #3,#INTB4M,<R2>,<(R2)>,<>,<>,<>,<>,<>,<> 
M$PUT1 


-IF NB <#INTBSM> 
013040 M$PUT <#INTB4M>,<R2>,<(R2)>,<>,<>,<>,©,0O,<> 
-MCALL M$PUT1 
.IF NB <R2> 
013040 M$PUT <R2>,<(R2)>,<>,<>,<>,<>,<>,,0 
-MCALL M$PUTi 
.IF NB <(R2)> 
013040 M$PUT <(R2)>,<>, <>, <>, <>, <>, <>, <>, <> 
-MCALL M$PUT1 
-IF NB <> 
M$PUT <>,<>,<>,<>,<>,<>,<>,<>,<> 


. NB <(R2)> 
013040 M$PUT1 (R2) 
-MCALL MS$GNINS 


Mig B 
013040 M$GNINS <MOV (R2),-(SP)> 
-IF LT SVCINS 
MOV (R2),-(SP) 
-MEXIT 
- ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
»ENDC 
-IF GT SVCINS 
ST 


> 
ao 
> 
& 
- 


013040 011246 (R2) ,~(SP) 


«NLIST 


-IF DIF B,<(R2)> 
-ERROR ;ILL. ARG. ‘*(R2)"' ONLY ‘B’’ IS ALLOWED. 


M$GNINS <CLR = (SP)> 
M$GNINS <BISB- ,(SP)> 


4 NB <R2> 
013042 M$PUT1 
-MCALL M$GNINS 


-IF B 
013042 M$GNINS <MOV R2,-(SP)> 


»D 
mM 


SEQ 0277 


| 
| 
| 
(R2) ,=(SP) 


Or OO —— _—- 


| 
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013042 01024€ MOV 
-MEAIT 


-ENDC 
-IF GT SVCINS 
»LIST 


R2,-(SP) 


»NLIST 


"IF DIF B,<R2> 
“ERROR ;ILL. ARG. ‘R2"' ONLY ‘BY’ IS ALLOWED. 


oE 
MS$GNINS <CLR -(SP)> 
M$GNINS <BISB- ,(SP)> 


.IF NB <AINTBGM> 
013044 M$PUT1 #INTBGM 
-MCALL M$GNINS 
013044 M$GNINS <MOV | #INTBGM, =(SP)> 
MOV ad #INTBSM, =(SP) 
“ENDC 
VIF EQ SVCINS 
MOV 
.MEXIT 
ENDC 
-1F GT SVCINS 
IST 


013044 012746 013631 #INTBSM, -(SP) 


eNLIST 


-IF DIF B,<#INTBSM> 
-ERROR ;ILL. ARG. ‘#INTB4M’’ ONLY ‘B'' IS ALLOWED. 


M$GNINS <CLR  _=(SP)> 
M$GNINS <BISB- ,(SP)> 


.IF NB <#3> 
013050 MS$PUT1 #3 
ce % MEGNINS 


013050 M$GNINS <MOV 
-IF LT SVCINS 
MOV #3,-(SP) 
»MEXIT 


«ENDC 
IF EQ SVCINS 
MOV 


#3,-(SP)> 


013050 012746 000003 


#3,-(SP) 





SEQ 0278 


R2,=(SP) 


#INTBSM,=(SP) 


—_—-—_---- —- --—- - CS Se 
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oMEXIT 
~ENDC 
~IF GT SVCINS 
LIST 


eNLIST 
- ENDO 


~IFF 

IF DIF B,<#3> 

-ERROR ;ILL. ARG. *#3°° ONLY ‘8°’ JS ALLOWED. 
MEXIT 


-ENDC 
M$GNINS <CLR =(SP)> 
—* <BISB-,(SP)> 


-ENDC 

013054 M$GNINS <MOV SP ,RO> 
IF LT SVCINS 
MOV SP ,RO 


| 
»MEXIT 
~ENDC 
.1F EQ SVCINS 
013054 010606 MOV _— SP, RO 
»MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


eNLIST 


«ENDO 
613056 M$SVC = CSPNTX 
-MCALL M$GNINS ,M$TSTLAB 
013056 MS$TSTLAB 
-MCALL_ M$TLABEL,MS$INCR 
gti LT TSTSTMAC, .MEXIT 


0 
ins \TSTESTNUN, \T$TSTSEQ 


DIX 
MS$INCR TS$TSTSEQ 
013056 MSGNINS <TRAP C$PNTX> 


-ENDC 

IF EQ SVCINS 
013056 104415 TRAP CSPNTX 
»MEXIT 


-ENDC 
IF GT SVCINS 
. IST 


TRAP 
»NLIST 
- ENDC 


. RP N, <\ TEARGCHTS2* e> 
MSGNINS <ADD AN, SP> 


ENDM 
M$GNINS <ADD #10,SP> 





#3,-(SP) 


SP,RO 


CSPNTX 


SEQ 0279 


| CZUDEAO PDP=11 UD 
GLOBAL SUBROUTINE 


n>Y 


DISK 
SECTION 


013060 062706 000010 


26 013064 005722 


013066 005303 
013070 001363 
28 013072 


013072 


013072 
013072 


000011 
177777 


013072 
013072 





-IF LT SVCINS 
ADD #10,SP 


»MEXIT 


- ENDC 
-IF EQ SVCINS 
ADD 


-MEXIT 


6 
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#10,SP 


IF GT SVCINS 
LIST 


-ENDC 


ADD #10,SP 
eNLIST 


<> 
CSPIITX ,#INTBS4M, <R2>,<(R2)>,<> 


<> 
CSPNTX ,AINTB4M, <R2>,<(R2) >, <>, <> 


<> 


CSPNTX,AINTB4M, <R2>,<(R2)>, <>, <>, <> 
<> 
C$PN1™,AINTBSM, <R2>,<(R2)>,<>,<>,<>,<> 


<> 
CSPNTX ,4INTBSM, <R2>,<(R2)>,<>,<>,<>,<>,<> 


CSPNTX, #INTBOM, <R2>,<(R2)>, <>, <>, <>, <>, <>,<> 
TST (R2)+ : PGINT TO NEXT LOCATION 
SOB Ree _ INTBFL 


C 
BNE INTBFL 


SG 
M$POP ,M$GNTAG ,M$SVC ,MSENDERR 
T$NS, TSNESTLEV, TSTEMP 

M$GETS MSDECR 

T$NESTLEV 

TSNESTLEV ; MACRO T$NS UNDERFLOW 


TSNS, \TSNESTLEV, TSTEMP 


T$TEMP= T$NSO 


M$DECR 


TSNESTLEV 


TS$NESTLEV=TSNESTLEV~1 
-IF EQ FSMSG-TSTEMP 


M$GNTAG 
-MCALL 
M$GEN 
IF LE 


L,T$$MSG 

M$GEN 
L,\T$$MSG,SVCTAG 
SVCTAG 


SEQ 0280 


ie 
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L10012: 


TRAP C$MSG 


013072 L10012: 
.MEXIT 
| -LIST 
-NLIST 
| 010000 S$LSYM=TSLSYM 
013072 M$SVC CS$MSG 
-MCALL M$GNINS,MS$TSTLAB 
013072 MSTSTLAB 
-MCALL MS$TLABEL,M$INCR 
JIIF LT TSTSTMAC, .MEXIT 
-RADIX 10 
M$TLABEL \TSTESTNUN, \T$STSTSEQ 
.RADIX 8 
MSINCR TS$TSTSEQ 
013072 M$GNINS <TRAP  C$MSG> 
.IF LT SVCINS 
TRAP C$MSG 
.MEXIT 
. ENDC eo 
.IF EQ SVCINS 
013072 104423 TRAP C$MSG 
-MEXIT 
.ENDC 
.IF GT SVCINS 
.LIST 
-NLIST 
.ENDC 
000041 SEF SEND 
MSENDERR ENDMSG, T$TEMP 
30 013074 125 104 101 INTHD: .ASCIZ\UDA INITIALIZE ERROR\ 
31 013121 045 101 124 INTM1: .ASCIZ\%ATIME-OUT ERROR WHILE WAITING FOR RESPONSE IN UDASA REGISTER%N\ 
32 013221 045 101 011 INTM2: .ASCIZ\%A UDASA REGISTER = %06%N\ 
33 013253 045 101 125 INTM3: .ASCIZ\%AUDA RESIDENT DIAGNOSTICS DETECTED FAILURE %N\ 
34 013331 045 101 125 INTM4: .ASCIZ\ZAUDASA REGISTER DID NOT RETURN CORRECT VALUE%N\ 
35 013411 045 101 011 INTMS: .ASCIZ\%A EXPECTED = %O6%N\ 
36 013435 045 101 011 INTM6: .ASCIZ\%A ACTUAL = %06%N\ 
37 013461 045 101 122 INTBIM: .ASCIZ\%ARING BUFFER WAS NOT CLEARED BY UDA%N\ 
38 013530 045 101 103 INTB2M: .ASCIZ\ZACURRENT CONTENTS OF RING BUFFER: %N\ 
39 013575 045 123 066 INTB3M: .ASCIZ\%S6%AADDRESS%S4 ZACONTENTSZN\ 
40 013631 045 117 061 INTB4M: ASC IZ\E01 3301 12N\ 
EVEN 





SEC 0281 


r 


0 
C 
0 


13644 032764 
13652 001374 
13654 000207 


100000 000002 





;WAITMS 
‘WAIT FOR UDA TO RESPOND WITH A MESSAGE PACKET 
‘ INPUTS: 
: R4 = ADDRESS OF HOST COMM AREA 
WAITMS: BIT #RG.OWN,HC.MCT(RG) ;LOOK AT OWN BIT 
BNE WAI TMS ‘WAIT FOR IT TO CLEAR 


RE TURN 


SEQ 0282 
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| 
1 ; TITLE MISCELLANEOUS SECTIONS 
2 -SBTTL REPORT CODING SECTION 
3 013656 


BGNMOD 

.MCALL M$GNGBL ,.M$PUSH 
-IF NE FSEND~ -1$MOD 
ERROR; :" BGNMOD'' IN MOD 


1 
000040 — 


-E 
013656 MSPUSH TS$NS,TSNESTLEV,F $MOD 
-MCALL MS$INCR,MSSETS 
013656 M$INCR TS$NESTLEV 
000000 TSNESTLEV=TSNESTLEV+1 
013656 M$SETS _TSNS,\TSNESTLEV,F SMOD 
000000 TSNSO=F $MOD 


. THE REPORT CODING SECTION CONTAINS 


1 


OOONAWSE 


013656 BGNRPT 

-MCALL _M$PUSH,M$INCR ,MSGNGBL 
000040 1 $RPT=F $BGN 
013656 M$PUSH TS$NS, ig 424 al 


013656 MSINCR TS$NESTLEV 
000001 TSNESTLEV=TSNESTLEV+1 
013656 M$SETS _TSNS,\TSNESTLEV,FSRPT 
000012 TSNS1=F $RPT 
010013 TS$$RPT=TSTAGNUM 
013656 M$INCR TSTAGNUM 
010014 T$TAGNUM=T$TAGNUM+ 1 
M$GNGBL L$RPT 
-MCALL M$GEN 
-IF NB,LS$RPT 


-1F NB, 
MSGEN LS$RPT,:,SVCGBL, 
- ENDC 


if 8B, 
M$GEN  L$RPT,:,SVCGBL,< > 
1 LE SVCGBL 





TH 


HE 
"PRINTS CALLS THAT GENERATE STATISTICAL REPORTS. 


eT atta tnite if tii eat te ta tiie 


(TION, WHICH IS OPTIONAL, CONTAINS THE CODE FOR PRINTI 


SEQ 0283 


-———_———_-———_----- ae 
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oa ; STATISTICAL na openaten GATHERED BY THE DIAGNOSTIC. IT IS 

15 ; jas ui g BY THE OPERATOR COMMAND ‘'PRINT'' OR BY THE MACRO CALL 

16 : “DORPT’’. USE THE PRINTS MACRO TO PRINT THE INFORMATION. 

17 ; USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. IT IS 

H : fom Baye ge i > a ne statistic AND IMPLEMENT THE 

3 PITTS TTTTTSTteetietThtit etait REALE AEA AAA AAA ALLA AA AAA L ALA ALLLAS 


EXIT RPT 
-MCALL MSSVC,MSEXIT, ,MSEXSEG,MSEXTJ ,M$GETTOP ,M$CHECK ,M$WORD ,XFER 
TSF LAG=F SEND 
MSCHECK RPT, TSTEMP, TSFLAG 
-IF IDN <TST>,<RPT> 
TSTEMP=TSS$TEST 
TSFLAG=I$TST 
-MEXIT 
- ENDC 
-IF IDN <SUB>,<RPT> 
TSTEMP=T$$SUB 
T$FLAG=I$SUB 
-MEXIT 


-ENDC 

-1F IDN <SEG>,<RPT> 
TSTEMP=TS$SEG 

TSF LAG=I$SEG 

-MEXIT 


.ENDC 

-IF IDN <INIT>,<RPT> 
TSTEMP=TSS$INIT 
TSFLAG=ISINIT 

-MEXIT 

.~ENDC 

-IF IDN <CLN>,<RPT> 
TSTEMP=TS$CLEAN 
shame 


- ENDC 

“IF IDN <SRV>,<RPT> 
TSTEMP=TS$SRV 

ba shai 

- ENDC 

-1F IDN <MSG>,<RPT> 
TSTEMP=T$$MSG 

TSF LAG=F $JMP 

-MEXIT 


~ENDC 

-IF IDN <RPT>,<RPT> 
TSTEMP=T$$RPT 

TSF LAG=F $JMP 

-MEXIT 


 ENDC 

-IF IDN <DU>,<RPT> 
TS$TEMP=T$$DU 

TSF LAG=F $JMP 
-MEXIT 

. ENDC 
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013656 


013656 


013656 000167 


013660 
013660 


015660 000000 


.IF IDN <AU>,<RPT> 
TSTEMP=TS$$AU 
fd 


- ENDC 
IF EQ TSFLAG-F $JMP 
M$WORD J$JMP 
-MCALL M$GNINS 
. IRP N,<J$JMP> 
MSGNINS <.WORD N> 
~ENDM 
M$GNINS <.WORD J$JMP> 
IF LT SVCINS 
«WORD J$JMP 
»MEXIT 
-ENDC 
IF EQ SVCINS 
. WORD 
»MEXIT 
- ENDC 
-IF GT SVCINS 


J$JMP 


»NLIST 


- ENDC 

MSEXTJ \TS$TEMP 

-MCALL M$GNINS 

M$GNINS <.WORD L10013-2-.> 
oaf 4F “is 

ety L10013-2-. 


« ENDC 
-IF EQ SVCINS 
-WORD L10013-2-. 
-MEXIT 
- ENDC 
-IF GT SVCINS 
«LIST 
-NLIST 
-ENDC 
»MEXIT 
- ENDC 
-1F EQ T$FLAG-F $8GN 
M$SVC_ = CSEXIT 
-IF IDN <SEG>, 
M$GET TOP T$SEK. TSSEGLEV, TSTEMP 
eee \TSTEMP 
Woy \TSTEMP 
»MEXIT 
-ENDC 
IF IDN <HRD>,<RPT> 
M$GET TOP 


-IF EQ FSHARD-TSTEMP 
~ IRP N,<\TS$$HARD> 


T$NS ,TSNESTLEV, TSTEMP 


. WORD 


. WORD 


SEQ 0285 


J$JMP 


L10013-2-. 
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36 013662 
013662 


013662 
013662 


090012 
000000 
013662 
013662 
013662 


WWWWRoNononnetdfo 
WSASBSRVRRRN 


010000 
013662 


013662 


XFER L'N 


~ENDC 

~iF IDN <SFT>,<RPT> 

MSGETTOP TSNS, TSNESTLEV, TSTEMP 
-IF EQ FSSOFT-TSTEMP 

. IRP N,<\TS$$SOF T> 

XFER L'N 


-ERROR ILL. ‘EXIT RPT'’ STMT. 


SEQ 0286 


Jee 2 Beg gg) "yee erenereeneents 


; a SERT ie ke por tec rice IS USED 


URING T 
RITTTTTILTiTTTi TTT PETTi SEE tt eEtttTT eet TT EtR TTT Et TTT Tet tT ett Ste ttt TT ttt ett 
LETT attack fat eee 


; py nS 3 THAT = USED ON 


EPORT SECT 
RTTTTTSTTTiTtTittT inti etttettttttretteeTTT Tet eT ett Tete TTT Tete t tT T Teeter TT Tet TT 


-EVEN 


ENDRPT 
-MCALL M$POP ,M$GNTAG ,M$SVC ,MSENDERR 
MS$POP TS$NS,TSNESTLEV, TSTEMP 
-MCALL M$GETS,MSDECR 
-IF LT T$NESTLEV 


-ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 


M$GETS TSNS,\TSNESTLEV, TSTEMP 
TSTEMP=T$NS1 
MSDECR TS$NESTLEV 
TSNESTLEV=TSNESTLEV~1 

-IF EQ FSRPT-TSTEMP 
MSGNTAG Us TS$RPT 


$GEN 
HSGEN L, Ns al SVCTAG 
SVCTAG 


»NLIS 
Set Sererres 3 
M$SVC C$RP 
»-MCALL MSCNINS -MSTSTLAB 
MSTSTLAB 
-MCALL_ M$TLABEL ,M$INCR 
SIF LT TSTSTMAC, .MEXIT 


L10013: 





8 7 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 52=4 SEQ 0287 
REPORT CODING SECTION 


| 
«RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 
MS$INCR TSISTSEQ 
M$GNINS <TRAP C$RPT> 
-IF LT SVCINS 
TRAP C$RPT 
-MEXIT 
-ENDC 
-IF EQ SVCINS 
013662 104425 TRAP C$RPT 
-MEXIT 
- ENDC 
IF GT SVCINS 


«LIST 
TRAP C$RPT 
»NLIST 
- ENDC 
2 "sieht 
MSENDERR ENDRPT,T$STEMP 
« ENDC 
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| 5 ~SBTTL PROTECTION TABLE 
3 s+ 
4 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 
: TO PROTECT THE LOAD MEDIA. 
7 
! 8 013664 BGNPROT 
-MCALL M$SPUSH,M$SINCR,MSGNGBL 
000040 I$PROT=F $BGN 
013664 MSPUSH TSNS,TSNESTLEV,FSPROT 
-MCALL MSINCR, MSSETS 
013664 MSINCR T$NESTLEV 
000001 TSNESTLEV=TSNESTLEV+1 
013664 MSSETS TS$NS,\TSNESTLEV,FSPROT 
000021 T$NS1=F $PROT 
010014 TSSPROT=TSTAGNUM 
013664 MSINCR TSTAGNUM 
010015 TSTAGNUM=T$TAGNUM+ 1 
013664 MSGNGBL LS$PROT 
-MCALL M$GEN 
.- IF NB,LSPROT 
IF NB, 
M$GEN L$PROT,:,SVCGBL, 
.~ENDC 
oir Be 
013664 M$GEN L$PROT,:,SVCGBL,< > 
-IF LE SVCGBL 
013664 LSPROT:: 
MEXIT 
~ENDC 
LIST 
L$PROT:: 
NLIST 
-ENDC 
9 ENDC 
10 013664 177777 -1 ;OFFSET INTO P-TABLE FOR CSR ADDRESS 
11 013666 177777 -1 ;OFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
4 013670 177777 -1 ;OFFSET INTO P-TABLE FOR DRIVE NUMBER 
14 013672 oe 
-MCALL M$PO 
013672 M$POP TSNS, OF SNESTLEV. TSTEMP 
-MCALL M$GETS, MSDECR 
ae iy TSNESTLEV 
-ERROR T$NESTLEV ; MACRO TSNS UNDERFLOW 
MEXIT 
-ENDC 
013672 M$GETS TS$NS,\TSNESTLEV, TSTEMP 
000021 TSTEMP=T$NS1 
013672 M$DECR TS$NESTLEV 


TSNESTLEV=TS$NESTLEV~1 
-IF NE FSPROT-TSTEMP 
‘aontt :MISSING BGNPROT 








ie 
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| PROTECTION TABLE 


. 
* 


s MAUARAYAREARENIANIANYIAEAIREAIAEYUEAIAAEYAREAAREIAR TALIA LIARIIAETARIUAREAAEIALEIIAD 


F BYTES FROM THE BEGINNING OF 
ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 
ITEM DOES NOT APPLY, LEAVE ENTRY AS -1. WHEN THE RUNTIME 
SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS (IF NOT 
SET TO =-1) TO GET THE ob a AND COMPARE WITH THOSE SAVED 
IN THE XXDP+ MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 
LOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 


3 THE GPHARD. 
SAA AU AAA ALLEL ALLL ELLA AAA L ALLL L EL LAALLLALLLALLL Ahhh hhh ehh ehhh eh ehhh teh teh hte tete 





nr 


. 2 
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1 -SBTTL INITIALIZE SECTION 


| 

¢ ted 

4 ; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
| : ; AT THE BEGINNING OF EACH PASS. 

| 7 
8 


013672 BGNINIT 
-MCALL M$PUSH,M$INCR,MSGNGBL 

000040 ISINIT=F$BGN 

013672 M$PUSH TS$NS, hg -FSINIT 


013672 MS$INCR _TSNESTLEV 
000001 TSNESTLEV=TSNESTLEV+1 
013672 M$SETS T$NS,\TSNESTLEV,FSINIT 
000006 TSNS1=FSINIT 
010015 T$$INI T=TSTAGNUM 
013672 M$INCR TSTAGNUM 
010016 TSTAGNUM=T$TAGNUM+ 1 
013672 M$GNGBL LSINIT 
-MCALL M$GEN 
-IF NB,LSINIT 
IF NB 


M$GEN  LSINIT,:,SVCGBL, 


013672 M$GEN L$INIT,:.SVCGBL,< > 
.IF LE SVCGBL 
013672 LS$INIT:: 


LSINIT:: 
-NLIST 


[aan te tet tt tants aaa tid tattoo 
; THE INITIALIZE CODE IS EXECUTED UNDER FIVE CONDITIONS. THE 

: ARE SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 

: DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 

; PLACE. THE EVENT FLAGS ARE READ USING THE "READEF‘' MACRO. 

Z THE CONDITIONS UNDER WHICH THE INIT CODE IS EXECUTED AND THE 

: CORRRESPONDING EVENT FLAGS ARE: 
: START COMMAND EF .START 


RESTART COMMAND EF .RESTART 

CONTINUE COMMAND EF .CONT INUE 

POWERDOWN/POWERUP EF .PWR 

NEW PASS EF .NEW 
EXAMPLE OF EVENT FLAG USE: 

READEF #EF.START 


BCOMPLETE STARTCODE 
DURING THE INIT CODE, USE THE ‘‘GPHARD'' MACRO TO OBTAIN P-TABLE 
INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
THIS IS A SEQUENTIAL DIAGNOSTIC. GET INFORMAT] AL 
UNITS AVAILABLE FOR TESTING IF THIS IS AN EXERC] 
OF UNITS AVAILABLE IS IN A HEADER POCATION: "L$ 


9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 





ee 
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C2 
INITIALIZE SECTION 


| 
| 
| 
| 


30 
31 
32 013672 005037 002222 
33 013676 
013676 


013676 


013676 012700 000040 
013702 
013702 


013702 


013702 104447 


34 013704 
013704 





TLR A ARAL AREAL ALAA AAA A LALLA E UL ALA Lh ha hb mbbabhbbhbebehbhherbhbhbhehbh eh hbhbh 


CLR IFLAGS 
READEF #EF.START 
-MCALL M$LDRO,MSSVC 
M$LDRO #EF .START,READEF 
-MCALL M$GNINS 

-IF NB MEF .START 

-IF DIF RO,#EF.START 


MSGNINS <MOV MEF START ,RO> 
-IF LT SVCINS 
MOV HEF .START,RO 
-MEXIT 
- ENDC 
-1F EQ SVCINS 
MOV MEF .START,RO 
-MEXIT 


"ENDC 
“IF GT SVCINS 
LIST 
.NLIST 
.ENDC 
-ENDC 
“ERROR :MISSING ARG. ON ‘'READEF'’ 
M$SVC CSREFG 
.MCALL M$GNINS M$TSTLAB 
MSTSTLAB 
.MCALL M$TLABEL.M$INCR 
“LIF LT TSTSTMAC. .MEXIT 
\ISTESTNUN, \TSTSTSEQ 


M$INCR T$TSTSEQ 
MSGNINS oa C$REF G> 


- ENDC 

IF EQ SVCINS 
TRAP 

»MEXIT 

» ENDC 

-IF GT SVCINS 

LIST 


CS$REFG 


»NLIST 


- ENDC 

BNCOMPLETE INIT1 
-MCALL_ M$GNINS 
M$GNINS <BCC INIT1> 
IF LT SVCINS 

INIT? 


INITIALIZE EVENT FLAG RECORD 
SCHECK START FLAG 


MOV 


TRAP 


; JUMP IF NOT SET 


MEF .START,RO 


CSREFG 


| 


UDE AO 


C2 
INITIALIZE SECTION 


013704 


35 013706 
3% 013714 


(013714 


0137146 


013714 


013720 
013720 


013720 


013720 


103003 


152737 000001 


012700 000036 


104447 





002222 
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IF EQ SVCINS 
BCC 
-MEXIT 
-ENDC 
-IF GT SVCINS 
IST 


INIT 


»NLIST 


BISB MISTART, IFLAGS 
INIT1: READEF #EF.CONTINUE 
M$LDRO ,M$SVC 

MEF . CONTINUE ,READEF 
MCALL 


° GNINS 

-1F NB #EF.CONTINUE 

-IF DIF RO,AEF.CONTINUE 

MS$GNINS <MOV #EF . CONTINUE ,RO> 
-IF LT SVCINS 

MOV #EF . CONTINUE ,RO 


= 
bad 


~MEXIT 
-ENDC 
IF EQ SVCINS 
MOV MEF CONTINUE ,RO 
oMEXIT 


-ENDC 
IF GT SVCINS 
IST 


eNLIST 
-ENDC 
-ENDC 
oat 
ERROR ;MISSING ARG. ON *'READEF*’ 
« ENDC 
M$SVC = C$REFG 
-MCALL M$GNINS ,M$TSTLAB 
MSTSTLAB 


-MCALL_ M$TLABEL,.MSINCR 
-1IF LT TSTSTMAC, .MEXIT 
«RADIX 10 


»MEXIT 


-ENDC 

IF €Q SVCINS 
TRAP C$REFG 

oMEXIT 

- ENDC 

IF GT SVCINS 

. IST 


»NLIST 
»ENDC 


\T$STESTNUN, \TSTSTSEQ 


BCC 


;SET START BIT IN FLAG RECORD 
; CHECK CONTINUE FLAG 


TRAP 


SEQ 0292 


INIT? 


MEF .CONT INUE ,RO 


CSREFG 


7 
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37 013722 
013722 


013722 103005 


38 913724 
39 013732 


000041 
013732 


152737 000002 002c22 


010015 
000040 


hat ghee INIT2 
INIT2> 


-ENDC 
IF EQ SVCINS 
BCC 
»MEXIT 
- ENDC 
IF GT SVCINS 
IST 


INIT2 


eNLIST 
ioe - IFLAGS 


-ENDC 
BISB 
EXIT 


; JUMP IF NOT SET 


BCC INIT2 


;SET CONTINUE BIT IN FLAG RECORD 
THE INIT COD 


INI EXIT E 
-MCALL MSS -MSEXIT ,.MSEXSEG,MSEXTJ ,M$GE T TOP ,MSCHE CK ,MSWORD , XFER 


T$FLAG=F SEND 

MSCHECK INIT, TSTEMP, TSFLAG 
-I1F IDN <TST>,<INIT> 
TSTEMP=TSSTEST 
TSFLAG=I$TST 

-MEXIT 


- ENDC 

IF IDN <SUB>,<INIT> 
TSTEMP=T$$SUB 
T$FLAG=1$SUB 

-MEXIT 


-ENDC 

IF IDN <SEG>,<INIT> 
TSTEMP=TS$$SEG 
TSFLAG=I$SEG 

-MEXIT 

- ENDC 

-IF_ IDN <INIT>,<INIT> 
TSTEMP=TSS$INIT 
TSFLAG=ISINIT 

»MEXIT 


-ENDC 

-IF IDN <CLN>,<INIT> 
TSTEMP=TS$CLEAN 
T$FLAG=I$CiN 

aoa 


ENDC 

-IF IDN <SRV>,<INIT> 
TSTEMP=T$$SRV 
T$FLAG=I$SRV 

»MEXIT 

- ENDC 

-IF IDN <MSG>,<INIT> 
TSTEMP=T$$MSG 

TSF LAG=F $JMP 

»MEXIT 


-ENDC 
IF IDN <RPT>,<INIT> 


SEQ 0293 


re 


NITIALIZE SECTION 


013732 
013732 


013732 


013732 104432 


013734 
013734 


013734 000566 
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TSTEMP=TS$RPT 
TSF LAG=F $JMP 
-MEXIT 


-IF IDN <DU>,<INIT> 

TSTEMP=T$$DU 

TSF LAG=F $JMP 

-MEXIT 

.ENDC 

~IF IDN <AU>,<INIT> 

TSTEMP=T$$AU 

TSF LAG=F $JMP 

-MEXIT 

.IF EQ TSFLAG=F SUMP 
JSIMP 

got \TSTEMP 

-IF EQ TS$FLAG-F $BGN 

M$SVC CSEXIT 

eae 


-MCALL_ M$TLABEL,.MSINCR 
-1IF LT TSTSTMAC, .MEXIT 


10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 


IX 
MSINCR T$TSTSEQ 
M$GNINS saan CSEXIT> 


IF EQ SVCINS 
TRAP 
»MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


CSEXIT 


»NLiST 


- ENDC 

-IF IDN <S!G>,<INIT> 
M$GETTOP TSEK,T$SEGLEV, TSTEMP 
ee \T$TEMP 


iSEXIT a 
-MCALL M$GN 
MSGNINS <, WORD L10015-.> 
IF LT SvCIN S 
“WORD L10015-. 
»MEXIT 


-ENDC 
IF EQ SVCINS 

-WORD 110015-. 
»MEXIT 


TRAP 


CSEXIT 


SEQ 0294 
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IZE SECTION 
-ENDC 
-IF GT SVCINS 
»LIST 


eNLIST 


iF TON <HRD>,<INIT> 


M$GETTOP Mb a Fi - T$NESTLEV, TSTEMP 


-I1F EQ FSHARD-TS$T 
- IRP N,<\TS$HARD> 
XFER L*N 


- ENDC 
~-IF IDN <SFT>,<INiT> 


M$GETTOP TSNS, TSNESTLEV, TSTEMP 


-IF EQ FS$SOFT-TSTEMP 
. JRP N,<\TS$SOF T> 
XFER L'Nn 


“ERROR :ILL. “EXIT INIT’ STMT. 


40 
41 013736 INIT2: READEF #EF.PWR 


-MCALL M$LDRO,M$SVC 
013736 M$LDRO #EF .PWR,READEF 
-MCALL M$GNINS 


.PWR 
013736 M$GNINS <MOV MEF .PWR,RO> 


-EN 
IF EQ SVCINS 
013736 012700 000034 iis MOV MEF .PWR,RO 


- ENDC 
IF GT SVCINS 
-LIST 


»NLIST 
- ENDC 
-ENDC 


FF 
_—— MISSING ARG. ON ‘'READEF"’ 


013742 M$SVC = C$REFG 

-MCALL M$GNINS,M$TSTLAB 
013742 M$TSTLAB 

-MCALL M$TLABEL ,MSINCR 


7CHECK POWER FAIL FLAG 


« WORD 


L10015=. 


#EF .PWR,RO 


SEQ 0295 


S&S 
| CZ 
INITIALIZE SECTION 


013742 


013742 104447 


42 013744 
013744 


013744 103020 


43 
44 013746 012701 004540 
45 013752 


013752 


013752 012727 000372 


paves ee CS ay 
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gy bd LT | dates -MEXIT 
\T$TESTNUN, \TSTSTSEQ 


EQ 
C$REF G> 
- ENDC 
-I1F EQ SVCINS 
TRAP 


»MEXIT 
- ENDC 
-IF GT SVCINS 


C$REFG 


«NLIST 
-ENDC 
BNCOMPLETE INIT3 
-MCALL_ M$GNINS 
MSGNINS <BCC INIT3> 
IF LT SVCINS 
BCC INIT3 


“IF €Q SVCINS 
BCC INIT3 


"IF GT SVCINS 
-NLIST 
#2400. ,R1 


DELAY 250. 
. L M$GNINS 
-IF LT G$DELM-250. 


SEQ 0296 


TRAP CS$REFG 


;JUMP IF NOT SET 


BCC INITS 


sPRINT A STATISTICAL REPORT 
;DELAY ONE MINUTE FOR DISK 


; UNITS POWER UP 


conte ;ARGUMENT TO ‘DELAY'' MUST NOT BE GREATER THAN 250 


ae 

F B 250. 
iscuins <MOV #1,(PC)+> 
MSGNINS eg #250. , (PC) +> 
-IF LT SVCINS 
MOV #250. ,(PC)+ 
-MEXIT 
-ENDC 
IF EQ SVCINS 

MOV #250. , (PC) + 

»MEXIT 


-ENDC 
IF GT SVCINS 
»LIST 











INITIALIZE SECTION 


013756 


013756 000000 


013760 


013764 


013764 000000 


013766 


013766 005367 





013760 013727 002116 
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»NLIST 
-ENDC 


ENDC 

M$GNINS <.WORD (> 
IF LT SVCINS 

WORD 0 


»MEXIT 

- ENDC 

IF EQ SVCINS 
» WORD 

»MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 
«NLIST 


- ENDC 
MS$GNINS <MOV LSDLY, (PC) +> 
-IF LT SVCINS 


MOV L$DLY,(PC)+ 
»MEXIT 
-ENDC 
-IF EQ SVCINS 
MOV L$DLY,‘PC)+ 
»MEXIT 


-ENDC 
-IF GT SVCINS 
»LIST 
»NLIST 


- ENDC 

MEGNINS <.WORD 0> 
IF LT SVCINS 

WORD 0 


-MEXIT 
-ENDC 
-1F EQ SVCINS 

- WORD 
»MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 

»NLIST 

- ENDC 
M$GNINS <DEC -6(PC)> 


EC ~6(PC) 
»MEXIT 
-ENDC 
-IF EQ SVCINS 
DEC ~6(PC) 
-MEXIT 


- ENDC 
-IF GT SVCINS 
»LIST 


MOV 


. WORD 


~ MOV 


. WORD 


#250. ,(PC)+ 


LSDLY, (PC)+ 


SEQ 0297 


mM 7 
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wa IST DEC -6(PC) 


-ENDC 

013772 M$GNINS <BNE ~74> 
-IF LT SVCINS 
BNE 4 


-MEXIT 

-ENDC 

IF £Q SVCINS 

013772 001375 BNE om 

-MEXIT 

-ENDC 

-IF GT SVCINS 

-LIST 

BNE 274 
»NLIST 


-ENDC 
013774 M$GNINS <DEC =22(PC)> 


- ENDC 
-I1F EQ SVCINS 

013774 005367 177756 DEC -22(PC) 
~MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 
DEC =22(PC) 
- ENDC 
014000 M$GNINS <BNE .720> 
-IF LT SVCINS 
BNE -720 
-MEXIT 
-ENDC 
a IF EQ SVCINS 
014000 001367 BNE .720 
»MEXIT 
-ENDC 
IF GT SVCINS 
LIST 
BNE -720 
-ENDC 


46 014002 005301 DEC R1 ; WHILE RESPONDING TO “C 
47 014004 003360 BGT POWDL Y 3; EVERY 0.025 SECOND 





—_—____——— 


7 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 55 
INITIALIZE SECTION 


1 014006 
014006 
014006 


014006 


014006 


2 014010 
014010 
014010 


014010 


014010 


014012 


014012 





104433 


104431 


INIT3: BRESET 

-MCALL M$SVC 

M$SVC  C$RESET 

-MCALL MS$GNINS ,MSTSTLAB 
M$TSTLAB 

-MCALL_ MSTLABEL ,MSINCR 

-IIF LT TSTSTMAC, .MEXIT 


° 10 
ne \TSTESTNUN, \TSTSTSEQ 


x 
M$INCR TSTSTSEQ 
M$GNINS <TRAP C$RESET> 
-IF LT SVCINS 
TRAP C$RESET 


»MEXIT 
-ENDC 
-IF EQ SVCINS 

TRAP CS$RESET 
»MEXIT 
-ENDC 
IF GT SVCINS 
-LIST 

-NLIST 

- ENDC 

MEMORY FFREE 
-MCALL M$SVC,MSRNRO 
M$SVC  C$MEM 
-MCALL MSGNINS, M$TSTLAB 
M$TSTLAB 


-MCALL_ M$TLABEL,,M$INCR 

-1IF LT TSTSTMAC, .MEXIT 

«RADIX 10 

ee \TSTESTNUN, \T$TSTSEQ 


«RADIX 

M$INCR TSTSTSEQ 
MSGNINS <TRAP C$MEM> 
-IF LT SVCINS 

TRAP CSMEM 


»MEXIT 
- ENDC 
-1F EQ SVCINS 

TRAP C$MEM 
»MEXIT 
~ENDC 
-IF GT SVCINS 
»LIST 

»NLIST 


- ENDC 
M$RNRO FFREE,MEMORY 
-MCALL M$GNINS 
-IF NB_ FFREE 
IF DIF RO,FFREE 
M$GNINS <MOV RO, FFREE> 
IF LT SVCIN » 
MOV RO,FFR 





RESET ALL UNITS 


TRAP 


;RESET START OF FREE MEMORY 


TRAP 


C$RESET 


C$MEM 


SEQ 0299 
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-MEXIT 

-ENDC 

-IF E€Q SVCINS 

014012 010037 002170 MOV RO,FFREE 

-MEXIT 

» ENDC 

-IF GT SVCINS 
-LiST 

MOV RO,FFREE 


«NLIST 
- ENDC 
- ENDC 
FF 
oo sMIiSSING ARG. ON ‘MEMORY'' 
; 014016 017727 166146 002172 MOV @F FREE ,FSIZE RESET SIZE OF FREE MEMORY 


333 TEMPORARY wget SUPERVISOR MEMORY caiL FIXED WITH SETUP 
Z 014024 162737 000100 002172 SUB #100,F SIZE 





a 
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INITIALIZE SECTION 


014032 005037 


002202 
014036 905037 002200 


OONAOUS IAN 


014042 005002 
014044 
014044 


014044 
014044 


010200 


014046 
014046 


014046 


014046 104442 


014050 


INITIALIZE CONTROLLER TABLE STORAGE WITH A WORD OF ZEROS 


CLR 
CLR 


TSTTAB 
CTRLRS 


;GET A P=TABLE FROM DRS 


CLR 
GPHARD 


R2,RO 
MSLDRO,MSSVC ,MSRNRO 


;LOGICAL UNIT NUMBER IN R2 


MSLDRO R2,GPHARD 


-IF NBR 
-IF DIF RO,R2 
MSGNINS <MOV 
-IF LT SVCINS 
R2,RO0 


- ENDC 
IF EQ SVCINS 
MOV 


-ENDC 
-IF GT SVCINS 


~IFF 
“ERROR 

-ENDC 
MSSVC 


MSGNINS 
2 


R2,RO> 


R2,R0 


»NLIST 


MISSING ARG. ON ‘'GPHARD"’ 
C$GPHRD 


-MCALL M$GNINS ,M$TSTLAB 


MSTSTL 


AB 
-MCALL_ M$TLABEL,MSINCR 


-IIF LT TSTSTMAC, 


«RADIX 10 
MSTLABEL 


-MEXIT 
\TSTESTNUN, \TSTSTSEQ 


8 
M$INCR TS$TSTSEQ 


MSGNINS <TRAP 
IF LT SVCINS 


TRAP ' C$GPHRD 


C 
-1F EQ SVCINS 
TRAP 


“IF GT SVCINS 


-ENDC 
M$RNRO 
-MCALL 





C$GPHRD> 


C$GPHRD 


«NLIST 


RO, GPHARD 
M$GNINS 


;GET POINTER TO A P=TABLE 


MOV 


TRAP 


; ZEROS MARKS END CONTROLLER TABLES 
;CLEAR CONTROLLER COUNT 


R2,RO 


C$GPHRD 


SEQ 0301 


CZUDEAO 
INITIALIZE SECTION 


14050 012703 


=O ODONAUSWNO 


NON = A RO ss 
esssssssse 

S 

So 

oO 

—_ 

wi 

Oo 

Oo 


14100 000770 


002202 
002200 


000002 


000000 
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-1F NB RO 

IF DIF RO,RO 

MSGNINS <MOV RO,RO> 
-ENDC 


LFF 
<p MISSING ARG. ON ‘'GPHARD*’ 


;SEE IF A CONTROLLER TABLE ALREADY EXISTS FOR CONTROLLER IN P=TABLE 


MOV ATSTTAB,R3 ;GET ADDRESS OF CONTROLLER TABLES 
TST CTRLRS : MAKE SURE ATLEAST 1 TABLE EXISTS 
BEQ NEWTAB NO TABLES = SKIP CHECK 
INITS: CMP (RO) ,C.UADR(R3) :CHECK IF SAME UNIBUS ADDRESS 
BEQ DUPERR ; FATAL ERROR 
TST (R3) ; ANY MORE TABLES? 
BEQ NEWTAB ; NO = INSERT THIS ONE 
Ag cay needs ; YES = POINT TO NEXT TABLE 
N 


SEQ 0302 


SIGS saa 
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1 :BUILD A CONTROLLER TABLE 


2 
3 014102 ASSUME C.NEXT,€0,0 
IF EQ,<C.NEXT>=<0> 


«ERROR ASSUMPTION VIOLATED 


N 
4 014102 ASSUME C.UADR,EQ,C.NEXT+#2 
i EQ,<C.UADR>=<C .NEXT+2> 


"ERROR ASSUMPTION VIOLATED 


5 014102 ASSUME C.UNIT,EQ,C.UADR+2 
IF EQ,<C.UNIT>=<C.UADR+2> 


- IFF 
co" ASSUMPTION VIOLATED 
N 


6 014102 ASSUME C.VEC ,EQ,C.UNIT+2 
IF EQ,<C.VEC>-<C.UNIT+2> 


“ERROR ASSUMPTION VIOLATED 


7 014102 ASSUME C.RING,EQ,C.VEC+2 
IF EQ,<C.RING>-<C. VEC +2> 


«ERROR ASSUMPTION VIOLATED 


C 
8 014102 ASSUME C.TO ,EQ,C.RING+2 
off EQ,<C.TO>=<C .RING+2> 


«ERROR ASSUMPTION VIOLATED 


9 014102 ASSUME C.FLG ,E£Q,C.TO+2 
IF EQ,<C.FLG>-<C.T0+2> 


F 
‘or ASSUMPTION VIOLATED 


0 014102 ASSUME C.REF ,EQ,C.FLG+2 
IF EQ,<C.REF>-<C.FLG+2> 


F 
«ERROR ASSUMPTION VIOLATED 


11 014102 ASSUME C.UNUM,EQ,C.REF +2 
olf EQ,<C.UNUM>=<C .REF +2> 


-ERROR ASSUMPTION VIOLATED 


— 


~— 
wr 


014102 ASSUME PT.UBA,EQ,0 
et EQ,<PT.UBA>-<0> 


FF 
rae ASSUMPTION VIOLATED 


14 014102 ASSUME PT.UNIT,E£Q,PT.UBA+2 
IF EQ. <PT.UNI T>=<PT. UBA+2> 


FF 
ERROR ASSUMPTION VIOLATED 


SEQ 0303 


¢ 
il 
15 014102 


| 
| 
22 


34 014160 
36 014162 
37 014166 
38 014172 
39 014176 


41 014204 


014204 
014204 


014204 


014204 


012701 


012701 
004737 
010165 
012765 


000001 


104443 


00C022 
002474 


000040 
000020 000042 
000004 


000024 
177777 000026 


~ENDC 
ASSUME PT.FLAG,EQ,PT.UNIT+2 
EQ,<PT. FLAG>=<PT., UNIT +2> 


NEWTAB: 


GMAN ID 
-MCALL 
TSGMANID=1 
M$SVC C$GMAN 
-MCALL M$GNINS, 
MS$TSTLAB 
-MCALL MS$TLABEL 


-IIF LT TSTSTMAC, 
\TSTESTNUN, \T$TSTSEQ 


M$INCR TSTSTSEQ 


EN 

IF EQ SVCINS 
TRAP 

»MEXIT 

- ENDC 

-IF GT SVCINS 

-LIST 


-ENDC 
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ASSUMPTION VIOLATED 


#C.SIZE/2,R1 
ALOCM 
R1,(R3) 

1,R5 

(R1)+ 
(RO)+,(R1)+ 
R2,(R1)+ 
(R1)+ 

(R1)+ 

(Ri)+ 

(R1)+ 

(R1)+ 
(RO)+,(R1)+ 
(RO) +,(R1) 
C.CNT(RS) 
AC. INIT, C.CNT#2(R5) 
AMDLLFCT,(R1)4 
NODLL 


#256,R1 

ALOCM 
R1,C.FBUF (RS) 
#-1,C.FBLK(RS) 


;GET WORDS IN mit TABLE 


SALLOCATE SPACE F 
SET POINTER TO THIS TABLE 


SAVE C TABLE ADDRESS 
FLAG END OF TABLE 


STORE UNIBUS ADDRESS 


[UNIT NUMBER 
; CLEAR VECTOR ADDRESS 


ASKF IL ,FCTFIL,A,0,0,-1,NO 


M$TSTLAB 


-M$INCR 
»MEXIT 


C$GMAN 


eNLIST 


M$SVC ,MSGENBR ,MSWORD , M$GNLS .M$INCR, GPRMD 


CLEAR TIME OUT 
CLEAR FLAGS 


CLEAR ate NUMBER 


DRIVE 
STARTUP FLAGS FOR DM 


SET ACCESS COUNT TO 0 


DLL FCT 
0 


N 
YES = ALLOCATE BUFFER AND GET FILE NAME 


BUFFER SIZE 
GET BUFFER 


SET POINTER IN C TABLE 


:CLEAR aT BUFFER ADDRESS 


SET EXISTING BLOCK 10 EOF 


; GET FiLE NAME 


TRAP 


C $GMAN 


SEQ 0304 





. -_ SS ee 


INITIALIZE SECTION 
014206 
014206 


014206 000406 


014210 


014210 


014210 014410 


014212 


000000 


000002 


014212 
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MSGENBR BR,\S$LSYM,$ 
-MCALL_ M$GNINS 

M$GNINS <BR 10000$> 
IF LT SVCINS 


: 10000$ 


-IF EQ SVCINS 
BR 10000$ 


ram 2 SVCINS 


BR 
eNUIST 


M$WORD FCTFIL 
— M$GNINS 

. IRP N,<FCTFIL> 
MSGNINS <.WORD N> 


MSGNINS <.WORD FCTFIL> 
iF UT SVCINS 
“WORD FCTFIL 
-MEXIT 
~ENDC 
-IF EQ SVCINS 
~ WORD FCTFIL 
-MEXIT 


- ENDC 
IF GT SVCINS 
. 1ST 
- WORD 
eNLIST 


. ENDC 
GPRMD ASKFIL,0,A,0,<0>,<=-1>,NO 
-MCALL M$RADIX,MSDEF AULT, MSEXCP, M$WORD ,M$CNTOP 


IF IDNA, 

IF EQ T$ ID 

-ERROR ;ASCII RADIX VALID ONLY ON ‘'GMANID*’ 
ea! 


mM: C 
TSTEMP=081 

-IF NE TSTEMP & 1 
-ERROR ;ODD OFFSET 
-ENDC 

-IF LT G$OFSIZE-0 
— ;OFFSET TOO BIG 


END 
TSCODE=GSPRMD + <0 * G$OFFSET> 
M$RADIX A,TSTEMP 


IF IDN B.A 
T$STEMP=G$RADB 
-MEXIT 


JF IDN 0,A 
TSTEMP=G$RADO 


10000$ 


FCTFIL 


SEQ 0305 


INITIALIZE SECTION 


000140 


000142 
014212 


000000 


000142 
000000 
014212 


009000 


014212 
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-MEXIT 

ENDC 

IF IDN D,A 
TSTEMP=G$RADD 
»MEXIT 

- ENDC 

-I1F IDNL,A 
TSTEMP=G$RADL 
-MEXIT 


IF IDN A,A 
TSTEMP=G$RADA 
-MEXIT 


-ERROR ;ILL. RADIX ‘‘'A"’ 
TSCODE=TSCODE ! TSTEMP 
MS$DEF AULT NO, TSTEMP 
-I1F IDN YES,NO 
TSTEMP=G$YES 

-MEXIT 


-ENDC 

-IF IDN NO,NO 
TSTEMP=G$NO 
-MEXIT 

. ENDC 
TSTEMP==-1 


-ERROR ;DEFAULT ‘NO’ MUST BE “'YES*’ OR ‘NO"' 


TSCODE= TSCODE | TSTEMP 
MSEXCP TSCODE,TSEXCP,G$LOLIM, T$LOLIM,0 


. jZE- 
. ERROR SINDIRECT PAR. TOO BIG 
-MEXIT 


. ENDC 

TSLOLIM=/2 
TSCODE=TSCODE |! GSEXCP 
TSEXCP=T$SEXCP ! G$LOLIM 


"IF B, 
T$LOL Im=0 
"ERROR ;ILL. DEFERRED MODE 


MSEXCP TS$CODE,TSEXCP,GSHILIM, T$HILIM,-1 
-IF IDN oe <-1> 
-IF LT GSOFSIZE- 

-ERROR ; INDIRECT PAR. TOO BIG 

~MEXIT 

- ENDC 

TSHIL IM=/2 

TSCODE=TS$CODE : GS$EXCP 

TSEXCP=TSEXCP ! G$HILIM 


-IF B, 


SEQ 0306 


2 
NITIALIZE SECTION 
177777 


014212 


014212 

014212 

014212 000142 
014214 
| 


014214 014345 


014216 


014216 000000 
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TSHILIM==1 
-ERROR sILL. DEFERRED MODE 


.ENDC 
ng <>,<T$CODE> 


IF 
IF NE IS$SFT = FS$BGN 
‘mex ; “‘COUNT’’ OPTION VALID ONLY IN S.W. QUES. 


- END 
Scope T$CODE ! GSCNTOP 


M$WORD <TS$CODE,ASKFIL,O,T$LOLIM, T$HILIM> 
-MCALL “er: 5 S 
- IRP psn Neg F -ASKF IL,0, TSLOLIM, TSHIL IM> 


M$GNINS <.WORD T$CODE> 
-IF LT SVCINS 
-WORD  TS$CODE 
»MEXIT 
- ENDC 
IF EQ SVCINS 
. WORD 
-MEXIT 
- ENDC 
-IF GT SVCINS 
IST 


TSCODE 


«WORD 
»NLIST 


»ENDC 

MS$GNINS <.WORD ASKFIL> 

-IF LT SVCINS 

-WORD = ASKF IL 

«MEXIT 

- ENDC 

IF EQ SVCINS 
. WORD 

»MEXIT 


- ENDC 
. TF GT SVCINS 
“LIST 


ASKF IL 


. WORD 
eNLIST 


- ENDC 
M$GNINS <.wORD 0> 
iF €F ING 


. WORD 
-MEXIT 
- ENDC 
IF €Q SVCINS 
«WORD 90 
»MEXIT 
-ENDC 
off a! SVCINS 


° 2 


TSCODE 


ASKF IL 


SEQ 0307 


rere a ee 


J 8 
ZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 57-5 
NITIALIZE SECTION 
»NLIST 
014220 M$GNINS <.WORD T$LOLIM> 
-IF LT SVCINS 
«WORD T$LOLIM 
»MEXIT 
-ENDC 
-IF EQ SVCINS 
014220 000000 «WORD T$LOLIM 
-MEXIT 
-ENDC 
-IF GT SVCINS 
eNLIST 
-ENDC 
014222 oor <.WORD TS$HILIM> 


LT SVCINS 
ie TSHILIM 


“IF EQ SVCINS 
014222 177777 “WORD  TS$HILIM 


"IF GT SVCINS 


.NLIST 
"IF NE TSEXCP 
M$WORD T$EXCP 
"IF NB 
M$WORD </2> 


014224 M$GNL S 
.MCALL M$GEN 


MSGEN \,$,SVCTAG 
0142246 M$GEN  \S$LSYM,$,SVCTAG 
.IF LE SVCTAG 
014224 10000$: 


»NLIST 


014224 M$INCR S$LSYM 
010001 S$LSYM=S$LSYM+1 
000000 T$GMANID=0 


42 
43 014224 004737 003144 NODLL: CALL HCOMM 
44 014230 005237 002200 INC CTRLRS 





«WORD TS$LOLIM 


«WORD TS$HILIM 


10000$ : 


; ALLOCATE HOST COMM AREA 
; COUNT THE CONTROLLER 


SEQ 0308 





1 
| 


-—o 
2m 
-“ 


TIALIZE SECTION 


48 014234 005202 
49 014236 023702 
a 014242 003300 
52 014244 004757 
53 

54 

55 

56 014250 01 
4 014256 01 
59 014264 


014264 


010015 
000040 


: 


002012 


004440 


002170 
002172 


002174 
002176 
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;GET NEXT P=TABLE 


NXTTAB: INC R2 ; INCREMENT LOGICAL UNIT NUMBER 

CMP LSUNIT,R2 ;CHECK IF GOT ALL TABLES 

BGT INITS IF NOT, GO BACK FOR NEXT 

CALL READDM ; LOAD DM FORMATTER INTO HOST MEMORY 
;SAVE CURRENT PARAMETERS FOR HISTORY 

MOV FFREE,FMEM ;SAVE START ADDRESS 

MOV FSIZE,FMEMS SAVE SIZE 


EXIT INIT 
-MCALL MS$SVC,MSEXIT,MSEXSEG,MSEXTJ,MS$GETTOP,MSCHECK,MSWORD ,XFER 
TSF LAG=F SEND 
M$CHECK INIT, TSTEMP,T$FLAG 
~IF IDN <TST>,<INiT> 
TSTEMP=TSS$TEST 
TSFLAG=IS$TST 
-MEXIT 


- ENDC 

-IF IDN <SUB>,<INIT> 
TSTEMP=T$$SUB 

1$F LAG=1$SUB 

-MEXIT 

-ENDC 

-IF IDN <SEG>,<INIT> 
TSTEMP=T$$SEG 
TSFLAG=1SSEG 


IF IDN <INIT>,<INIT> 
TSTEMP=TS$INIT 
T$FLAG=I$INIT 
»MEXIT 

-ENDC 

-IF_IDN Sat <a 
TSTEMP=T$$CL 
TSF LAG= ISCLN 
-MEXIT 


- ENDC 

-IF IDN <SRV>,<INIT> 
TSTEMP=TS$SRV 

T$F LAG=I$SRV 

ar 


END 

oif TDN <MSG>,<INIT> 
T$TEMP= TS$$MSG 

ISFLAG=F SIME 

~MEXIT 

-ENDC 

-IF IDN <RPT>,<INIT> 
TSTEMP=TS$$RPT 

TSF LAG=F $MP 

-MEXIT 


SEQ 0309 


a 










INITIALIZE SECTION 


TSTEMP=T$$DU 
TSF LAG=F SMP 
-MEXIT 


TSTEMP=T$$AU 
bt phn 


014264 M$SVC 
014264 MS$TSTLAB 


014264 M$GNINS CTRAP 
INS 


EN 
IF EQ SVCINS 
TRAP 
-MEXIT 
» ENDC 
-IF GT SVCINS 
IST 


014264 104432 


aie \T$T 


-MCALL 


-EN 

IF EQ SVCINS 
. WORD 

-MEXIT 

-ENDC 

of GY SVCINS 


LIS 


014266 000234 


014266 MSEXIT \TSTEMP 
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~ENDC 
~IF IDN <DU>,<INIT> 
~ENDC 
-IF IDN <AU>,<INIT> 


-I1F EQ TSFLAG-F $JMP 
D J$JMP 
MSEXTJ \TSTEMP 


-IF EQ T$FLAG-F $8GN 
CSEXIT 
-MCALL M$GNINS ,M$TSTLAB 


-MCALL_ M$TLABEL ,M$INCR 
TIF LT al oMEXIT 


\TS$TESTNUN, \TS$TSTSEQ 


CSEXIT 


»NLIST 


- ENDC 
IF IDN <SEG>,<INIT> 
M$GETTOP TSSEK. , TSSEGLEV, TSTEMP 


MS$GNINS 
014266 MSGNINS <-WORD L10015-.> 
“WORD L10015~. 


L.10015-. 


TRAP 


CSEXIT 


SEQ 0310 


a 
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INITIALIZE SECTION 


«WORD 110015-. 


eNLIST 
-ENDC 
~ENDC 
-MEXIT 
-I1F IDN <HRD>, wig: A 
M$GETTOP ba FI TSNESTLEV, TSTEMP 
-IF EQ FSHARD-TSTE 
~ RP N c\TSSHARD> 
XFER in 
ENDM 
-MEXIT 
- ENDC 
- ENDC 
IF op <SFT>,<INIT> 
MSGETT TSNS , TSNESTLEV, TSTEMP 


mi J Eo  FSSOFT- -TSTEMP 
.IRP N,<\TS$SOF T> 
XFER L'N 


ERROR ;ILL. “EXIT INIT’’ STMT, 
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INITIALIZE SECTION 


1 014270 
014270 
014270 
014270 


014270 


014270 


014272 


014272 


014272 


014274 


104454 


000012 
000001 


000001 


000010 


DUPERR: ERRSF 1,DUPERM 
-MCALL MSERRINS 


MSERRINS UPERM, , CSERSF 
.MCALL MSGNINS pn AX M$TSTLAB 
M$SVC_ C$ERS 

-MCALL MSGNINS MSTSTLAB 
M$TSTLAB 


-MCALL_ M$TLABEL ,M$INCR 
TIF LT TSTSTMAC, .MEXIT 
«RADIX 1 


0 
MSTLABEL \TSTESTNUN, \T$TSTSEQ 


ADIX 8 
MSINCR TSTSTSEQ 
M$GNINS ay a CSERSF > 


IF LT SVCI 
TRAP CSERSF 
-MEX 
~EN 


DC 

IF EQ SVCINS 

TRAP CSERSF 
»MEXIT 
-ENDC 
-IF GT SVCINS 
«LIST 

TRAP 
eNLIST 

-ENDC 
«RADIX 10 
-IF NB 1 
pit 
-ERROR ;MISSING ERROR-NR 
ENDC 


M$WORD \TSERRNUM 
-MCALL M$GNINS 


-ENDM 
MSGNINS <.WORD 1> 
IF + ‘ates 


“IF EQ SVCINS 
WORD 


IF id SVCINS 


. WORD 
eNLIST 


J M 
.IRP N,<DUPERM> 


CSERSF 


SEQ 0312 
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INITIALIZE SECTION 


a <.WORD N> 


EN 
014274 M$GNINS <.WORD DUPERM> 
grt LT SVCINS 
WO! DUPERM 


“IF EQ SVCINS 
014274 014300 .WORD  DUPERM 


-IF GT SVCINS 


«WORD DUPERM 
eNLIST 


014276 M$WORD 0 

— MSGNINS 

. IRP N,<0> 
MSGNINS < WORD N> 


014276 MS$GNINS <.WORD 0> 
IF LT SVCINS 
WORD 0 


“MEX IT 

-ENDC 

IF EQ SVCINS 
. WORD 


-MEXIT 
-ENDC 
-IF GT SVCINS 
-LIST 


014276 000000 


«WORD 0 
«NLIST 
- ENDC 
-ENDC 


014300 124 1 7 DUPERM: .ASCIZ \TWO CONTROLLERS WITH THE SAME UDAISP\ 

014345 105 1 4 ASKFIL: .ASCIZ \ENTER FILE NAME FOR DOWN LINE LOAD\ 

014410 FCTFIL: .BLKB 72, ; INPUT FILE NAME FOR DLL 
014520 000 . ¢ ld 0 


ENDINIT 

MSPOP ,MSGNTAG ,M$SVC ,MSENDERR 

TSNS, TSNESTLEV, TSTEMP 

M$GETS ,M$DECR 

T$NESTLEV 

TSNESTLEV ; MACRO T$NS UNDERFLCW 





Fe nee ee ce a 


. 2 
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INITIALIZE SECTION 


014522 M$GETS _TSNS,\TSNESTLEV,TSTEMP 
000006 TSTEMP=TS$NS1 
014522 M$DECR TS$NESTLEV 
000000 TSNESTLEV=TSNESTLEV=1 
-I1F EQ FSINIT-TSTEMP 
014522 MSGNTAG L,TSSINIT 


ALL M$GEN 
614522 M$GEN L,\T$$INIT,SVCTAG 
° SVCTAG 
014522 L10015: 


eNLIST 
010000 S$LSYM=TSLSYM 
014522 M$SVC = C$INIT 
-MCALL MS$GNINS ,M$TSTLAB 
014522 MSTSTLAB 
-MCALL_ M$TLABEL ,M$INCR 
-IIF LT TSTSTMAC, .MEXIT 


«RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
«RADIX 8 
M$INCR TSTSTSEQ 
014522 MSGNINS <TRAP C$INIT> 


-IF LT SVCINS 
TRAP CSINIT 


-MEXIT 
-ENDC 
IF EQ SVCINS 
014522 104411 TRAP CSINIT 
-MEXIT 
- ENDC 
-IF GT SVCINS 
eNLIST 
- ENDC 
000041 | pleanaten 
MSENDERR ENDINIT, T$TEMP 
- ENDC 


L10015: 


TRAP 


CSINIT 


SEQ 0314 


—————— 
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; AUTODROP SECTION 


-SBTTL AUTODROP SECTION 


++ 

; THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
3 THE “'ADR'' FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
; SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

: DROPPED FROM TESTING. 


1 
4 
J 
4 
5 
6 
? 
8 
9 
0 


1 
2 
3 
4 
5 
6 
7 


— 


014524 BGNAUTO 
-MCALL M$PUSH,M$INCR,M$GNGBL 
000040 I $AUTO=F $BGN 
014524 MSPUSH T$NS,TSNESTLEV,FSAUTO 
-MCALL MSINCR,MS$SETS 
014524 MS$INCR TS$NESTLEV 
000001 TSNESTLEV=TSNESTLEV+1 
014524 M$SETS _TSNS,\TSNESTLEV,FSAUTO 
000020 T$NS1=F $AUTO 
010016 TS$AUTO=T$TAGNUM 
014524 M$INCR TSTAGNUM 
010017 T$TAGNUM=T$TAGNUM+ 1 
014524 M$GNGBL L$AUTO 
-MCALL M$GEN 
. IF NB,LSAUTO 


IF NB, 
M$GEN L$AUTO,:,SVCGBL, 
-ENDC 


| 
| 
| 


if G, 

014524 M$GEN  L$AUTO,:,SVCGBL,< > 
-IF LE SVCGBL 

014524 L$AUTO:: 


L$AUTO:: 
»NLIST 


pee TE EE AONE EE CC eee 
: IN oe Poo HERE , a gay caats TO SEE IF THEY RESPON 


ISS " FOR 
RTTTTTELTTTSTTTTTSTi tT TTT TtATT TTT LETT EREET TEETER TET ERT Te 


“2a oss asi oS 


014524 ENDAUTO 
-MCALL _M$POP ,M$GNTAG ,M$SVC, ghGENDERA 
014524 MSPOP T$NS, TSNESTLEV, TSTEMP 

-MCALL M$GETS,MSDECR 

IF LT T$NESTLEV 

Sh TSNESTLEV ; MACRO T$NS UNDERFLOW 


014524 M$GETS TS$NS,\TSNESTLEV,T$TEMP 
000020 TSTEMP=T$NS1 

014524 M$DECR TS$NESTLEV 

TSNESTLEV=TSNESTLEV~1 

-IF EQ FSAUTO-TSTEMP 








fOr — 
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AJTODROP SECTION 
014524 MS$GNTAG Le Me pee 
- a 
014524 MSGEN L.\TSSAUTO, SVCTAG 
IF LE SicT 
014524 L10016: 
oMEXIT 
.ENDC 
110016: 
eNLIST 
010000 S$LSYM=TSLSYM 
014526 M$SVC C$AUTO 
-MCALL MS$GNINS,M$TSTLAB 
014524 M$TSTLAB 


-MCALL_ MS$TLABEL .MSINCR 
-1IF LT TSTSTMAC, .MEXIT 


R 0 
re \TSTESTNUN, \TSTSTSEQ 


IX 
M$INCR TS$TSTSEQ 
014524 MS$GNINS vty C$AUTO> 


m C 
.1F EQ SVCINS 

014524 104461 TRAP C$AUTO 
»MEXIT 


~ENDC 
-IF GT SVCINS 
LIST 
TRAP C$AUTO 
eNLIST 
: -ENDC 
000041 iSauTO= F SEND 


I 
ee ENDAUT9, TSTEMP 


ANUP 
1 
2 
3 
4 
5 
6 
7 
8 


2H 
NQMWUEWN=OO 





rr PDP=11 UDA 


CODING SECTION 


014526 


014526 
014526 
014526 


014526 
014526 


014526 
014526 


014526 


014526 


000040 


000001 


000007 
010017 


010020 


000041 


. ? 
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-SBTTL CLEANUP CODING SECTION 


++ 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN 
-MCALL Pa a tala sant 


GN 
M$PUSH TS$NS,TSNESTLEV,FSCLEAN 
-MCALL MSINCR,MSSETS 
MSINCR _TSNESTLEV 
TSNESTLEV=TSNESTLEV+ 
MSSETS _TS$NS, A TSNESTLEV, FSCLEAN 
T$NS1=F SCLEAN 
TS$CLEAN=T$TAGNUM 
M$INCR TSTAGNUM 
T$TAGNUM=T $TAGNUM+ 1 
M$GNGBL LS$CLEAN 
-MCALL M$GEN 
-IF NB,LSCLEAN 


-1F NB, 
M$GEN L$CLEAN,:,SVCGBL, 
« ENDC 


IF G, 
M$GEN LS$CLEAN,:,SVCGBL,< > 


~IF LE SVCGBL 
LSCLEAN:: 
-MEXIT 
.ENDC 
LIST 
LSCLEAN:: 
-NLIST 
- ENDC 
-ENDC 
‘eee Poe Or BT Ee iT gy TO oO) ee: 
: LEANUP 
: RESTORE YOUR TEST-DEVICE TO A NEUTRAL STATE. 
: ne a wilt A cae ae” AFTER EACH PASS AND AFTER THE 
Y 


AM IS_IN 
TTT TTT TTETTTTTTETT ELTA TELLTEETTTEETTET TERETE RET ERET RTE TTT eet eet 


EXIT CLN 

-MCALL M$SVC, MSEXIT, MSE XSEG,MSEXTJ .M$GETTOP M$CHECK ,MSWORD ,XFER 
T$FLAG=F SEND 
M$CHECK CLN,TSTEMP,TS$FLAG 
-IF iDN <TST>,<CLN> 
TSTEMP=TS$$TEST 
TSFLAG=I$TST 

»MEXIT 

-ENDC 

-IF IDN <SUB>,<CLN> 
T$TEMPST $$SUB 
T$FLAG=!$SUB 

MEXIT 


SEQ 0317 


-—- -—_ ---——_ a a . a - 
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CLEANUP CODING SECTION 


| 
i€ 
! 
.ENDC 
| wIF_IDN <SEG>,<CLN> 
| TSTEMP=T$$SEG 
| T$F LAG=I$SEG 
.MEXIT 
ZENDC 
L1F_IDN <INIT>,<CLN> 
TSTEMP=T$$INIT 
T$FLAG=ISINIT 
| JMEXIT 
| 
| 


- ENDC 
“ .1F IDN <CLN>,<CLN> 
010017 TSTEMP=T$$CLEAN 
000040 TSFLAG=I$CLN 
MEXIT 


.ENDC 

IF IDN <SRV>,<CLN> 
TSTEMP=TS$$SRV 

| TSLAG=1$SRV 

| ‘ 


“IF IDN <MSG>,<CLN> 
T$TEMP= TSEMSG 

Ie aeathee 

-MEXIT 

-ENDC 

-IF IDN <RPT>,<CLN> 
TSTEMP=T$$RPT 

TSF LAG=F SUMP 


-IF IDN <DU>,<CLN> 
T$TEMP=T$$DU 

TSF LAG=F $JMP 
-MEXIT 


» ENDC 

-IF IDN <AU>,<CLN> 
TSTEMP=T$$AU 

i betel 


-I1F EQ TSFLAG-F $5MP 
M$WORD J$JMP 
MSEXTJ \TSTEMP 
»MEXIT 
-ENDC 
-IF EQ TS$FLAG-F $BGN 
014526 M$SVC = CSEXIT 
-MCALL M$GNINS,M$TSTLAB 
014526 M$TSTLAB 
-MCALL_ MS$TLABEL .MSINCR 
-ITIF LT TSTSTMAC, .MEXIT 
«RADIX 10 
Te \TSTESTNUN, \TSTSTSEQ 


IX 
M$INCR TS$TSTSEQ 
M$GNINS <TRAP C$EXIT> 





SEQ 0318 


peated teinesass sihawieneyeinasinemmreinbndunibinensiasamei a 


| 
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aa 


TRAP CSEXIT 
oMEXIT 
-ENDC 
-IF EQ SVCINS 
014526 104432 TRAP CEEXIT 
-MEXIT 


- ENDC 
-IF GT SVCINS 
“LIST 


| LIF LT SVCINS 
| 


— TRAP CSEXIT 
«NL 


- ENDC 

IF IDN <SEG>,<CLN> 
MS$GETTOP T$SEK,TSSEGLEV,TSTEMP 
1 aa \TSTEMP 


014530 MSEXIT \TSTEMP 


-MCALL M$GNINS 
014530 MSGNINS <, — L10017=.> 


« ENDC 

IF EQ SVCINS 
014530 000002 «WORD 110017-. 
-MEXIT 
« ENDC 
IF GT SVCINS 
«LIST 

«WORD 110017-. 


»NLIST 
-ENDC 
MEXIT 
IF ee <HRD>, <CLN> 
M$GETTO re TSNESTLEV, T$STEMP 


-IF EQ  PSHARD-TSTEM 
. IRP N,<\T$$HARD> 


END 

oar DN <SFT>,<CLN> 
M$GE T TOP TSNS, TSNESTLEV, FSTEMP 
.IF EQ FSSOFT-T$TEMP 

* TRP N,<\T$$SOF T> 

XFER L'N 


-ENDC 
-ERROR ;ILL. ‘EXIT CLN’’ STMT, 
ELA ELLE LEAL ALA LE AEE L ah ebebnmareheeeheeh ehhh ebm eh bt 





ES ag a a a 


| 
& eonesd 
20 
| 22 


8 
29 





014532 
014532 


014532 
014532 


014532 
014532 
014532 


014532 
014532 


014532 


014532 
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CODING SEC 


CTION 
: INSERT LOCAL STORAGE THAT IS USED ONLY 
: DURING THE CLEANUP SECTION. 
EEE E LALA A ALL AL ELA LALEAL Ab abhbeeeaeeeee 
SAR EAR AERA AAA AEA ALAA AEA AAA ALAA A LALA ALAA ALLEL LAL habe heheh ahbheheememer 
INSERT MESSAGES THAT ARE USED ONLY 


: DURING THE CLEANUP SECTION. 
= YYW LVALA LALLA ALLA ILIA IIIS OSS SS I I I 


ENDCLN 
-MCALL M$POP,M$GNTAG, ,M$SVC ,MSENDERR 
M$POP TS$NS,TSNESTLEV,TSTEMP 
-MCALL MSGETS,MSDECR 
LIF LT T$NESTLEV 
-ERROR TS$NESTLEV ; MACRO T$NS UNDERF LOW 


TS has \TSNESTLEV, TSTEMP 
000007 TSTEMP=TSNGI 
M$DECR TS$NESTLEV 
000000 TSNESTLEV=TSNESTLEV~1 
-IF EQ FSCLEAN-TSTEMP 
M$GNTAG TL a 


M$GEN L,\T$$CLEAN, SVCTAG 
.IF LE SVCTAG 


= 
ra) 
> 
= 
: 
= 


L10017: 


-NLIST 
010000 S$LSYM=TSLSYM 
M$SVC C$CLEAN 
-MCALL M$GNINS ,M$TSTLAB 
M$TSTLAB 
-MCALL_ M$TLABEL,.M$INCR 
say LF de -MEXIT 


° 0 
a \TSTESTNUN, \T$TSTSEQ 


X 

M$INCR TS$TSTSEQ 

M$GNINS <TRAP C$CLEAN> 

IF LT SVCINS 

TRAP C$CLEAN 

»MEXIT 

-ENDC 

IF EQ SVCINS 
104412 TRAP CSCLEAN 
»MEXIT 


-ENDC 
IF GT SVCINS 
»LIST 


a Xe TRAP CSCLEAN 


-ENDC 
ISCLN=F SEND 


SEQ 0320 


[rn ee nr ee sa 
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CLEANUP CODING SECTION 


oIFF 
MSENDERR ENDCLN, TSTEMP 
-ENDC 


30 

317 014534 ENDMOD 

-MCALL M$POP,MSENDERR 
.IF EQ F$BGN-I$MOD 


000041 i SMOD=F SEND 
“ERROR ; MISSING ‘®BGNMOD"’ 
"MEXIT 
“ENDC 
014534 M$POP T$NS, T$NESTLEV. TSTEMP 


-MCALL M$GETS,MSDECR 
-IF LT TSNESTLEV 
-ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 


C 
014534 M$GETS TSNS,\TSNESTLEV, TSTEMP 
000000 TSTEMP=T$NSO 
014534 M$DECR TS$NESTLEV 
177777 TSNESTLEV=TS$NESTLEV~1 
-I1F NE FSMOD-TSTEMP 
ce ENDMOD , T$TEMP 
-EN 


SEQ 0321 


ee ee tenia ee ee Sas decteatinati 
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CLEANUP CODING SECTION 
} : TITLE HARDWARE TESTS 
3 RAR ATAIA RRR nN ASTER 
4 : THE _ AME oF THIS. Test 0. THE -SBTTL AS S SHOWN IN THE 
6 PEPETASTST ELE TSETCULTT TREES TEESE TTT TTT ELT ET TEETER ERT EEE ETE TTT 
8 
9 014534 BGNMOD 
_MCALL M$GNGBL ,.M$PUSH 
“IF NE FSEND D1 $0p 
"ERROR ;'BGNMOD'’ IN MOD 
me 
000040 1 $MOD=F $8GN 
-ENDC 
“IF NB 
MENDO 
014534 M$PUSH T$NS,T$NESTLEV,F $MOD 
.MCALL M$INCR,MSSETS 
014534 MSINCR T$NESTLEV 
000000 TSNESTLEV=T$NESTLEV+1 
014534 M$SETS T$NS,\TSNESTLEV,F $MOD 
i. 000000 T$NSO=F $MOD 
11 p++ 
12 : TEST TO 
: #2 
15 j MUMMMAUNAAAEELEEEAEEEERERARARAARRAAAA AAA AAA EELLEEEREAAZZRERRRAIAAI AAAI AAAI A IID 
16 ; CHANGE E PHRASE "TEST TO . 0 BE A FUNCT TONA 
17 TION OF THE LARDUARE 7 pine 
18 SUA UAREREELELERRRL ULE SARE ER ELLE ES LULA ELE L ELLER AER R ULE ALES E RULER ELLE RELA 
20 ; RRRRREEEEXEXEXIRRERR2REREEEEEEEEE2222 2222 EEEELEEEELAIREREREEEEEEEEEEAEERRREE EE 
22 = AELLL ALLAN ILIA III III III SI II SS I I ISI 
24 0145346 


BGNTST 
-MCALL MS$INCR,MSGNTEST ,M$PUSH,MS$INCR 
-IF NE FSEND-I$SUB 
-ERROR ;'BGNTST'’ IN SUB 


“IF NE FSEND-I$SEG 
“ERROR ;'BGNTST’’ IN SEG 


"IF NE FSEND-ISTST 
“ERROR s"BGNTST'’ IN TST 


5 
I$TST=F $BGN 
-ENDC 


-IF B 
M$INCR TSTESTNUM 





‘ues. 


L 9 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL=81 15:27:47 PAGE 61-1 


TEST 1 


25 


014534 
014534 
014534 


014534 
014534 
014534 


014534 


014534 


014534 


014534 


014534 


014534 


014534 


000001 


000000 
000012 


000010 


000001 


000001 
010020 


010021 
000001 


000001 


4: papas Soeicinben nani 
TSTESTNUM= 


10 

MSGNTEST \TSTESTNUM 
M$GEN 

EN 1,1:,SVCTST 

LE SvVCTST 


«NLIST 


MSPUSH T$NS,TSNESTLEV,FSTEST 
-MCALL MS$INCR,MS$SETS 
MS$INCR TSNESTLEV 
TSNESTLEV=TSNESTLEV+1 
MS$SETS TSNS,\TSNESTLEV,FSTEST 
TSNS1=FSTEST 

TS$TEST=TSTAGNUM 
MSINCR TSTAGNUM 
T$TAGNUM=T$TAGNUM+1 
TSTSTSEQ=1 

PRINTF #JFK1 

-MCALL M$PRINT 

-IF B  #JFK1 

-ERROR ;MISSING FORMAT 
-MEXIT 

ENDC 

-IF B <> 
M$PRINT CSPNTF ,AJF 


K1 
-MCALL _M$COUNT, MSPUT, MSGNINS ,M$SVC 


TSARGCNT=1 


M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


.1F NB <> 
TSARGCNT=T$ARGCNT +1 
ENDC 


"IRP —+N, <\ T$ARGCNT> 


-IF NB <> 
M$COUNT TS$ARGCNT,<>,<>,<>, <>, <>, <>, ©,<> 
NDC 


M$PUT #N,AJFK1,<>,<>,<>,<2,2,O,0O,02 


M$PUT #1, 4JFK1,<>,<>, <>, <2, <2,<2,0,0 


-MCALL M$PUT1 
-IF NB <#JFKI> 


M$PUT <MJFK1>,<>,<>,<>,<>,<>, 


-MCALL M$PUT1 
IF NB <> 


O,O,< 


M$PUT <>, <>, <>, <>, <2, ©,2, ©, 


IF NB <@#JFK1> 
M$PUT1 MJFKi 





Ties 


SEQ 0323 





m9 
aa PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 61-2 SEQ 0324 


=MCALL MSGNINS 
014534 MSGNINS <MOV #JFK1,=(SP)> 
IF LT SVCINS 
MOV #JFK1,-(SP) 


-MEXIT 
-IF EQ SVCINS 

014534 012746 014653 exit MOV MJFK1,-(SP) 
-MEX 


-ENDC 
-IF GT SVCINS 
-LIST 
MOV MJFK1,-(SP) 

eNLIST 


-IF DIF B,<#JFK1> 
-ERROR ;ILL. ARG. "#JFK1"* ONLY ‘B’' IS ALLOWED. 


M$GNINS <CLR =(SP)> 
M$GNINS <BISB — ,(SP)> 


.IF NB <f1> 
014540 M$PUT1 
-MCALL M$GNINS 


= 
—_ 


014540 M$GNINS <MOV #1,-(SP)> 
-IF LT SVCINS 

MOV #1,-(SP) 

-MEXIT 


- ENDC 
IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 
ST 


014540 012746 000001 #1,-(SP) 


MOV #1,~-(SP) 
-NLIST 


-IF DIF B,<#1> 
ERROR ;ILL. ARG. '#1"' ONLY ‘B’' IS ALLOWED. 


M$GNIV!S <CLR -(SP)> 
MSGNINS <BISB- ,(SP)> 


014544 M$SNINS <MOV SP,RO> 
-IF LT SVCINS 
MOV 


SP,RO 
-MEXIT 








014544 010600 


014546 
014546 


014546 


014546 104417 


014550 


014550 062706 000004 
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- ENDC 
-IF EQ SVCINS 
MOV 
-MEXIT 
-ENDC 
-IF GT SVCINS 
IST 


SP,RO 


»NLIST 
- ENDC 
M$SVC CSPNTF 
-MCALL M$GNINS,M$TSTLAB 
MSTSTLAB 


-MCALL_ M$TLABEL,MSINCR 
“IIF LT T$TSTMAC, .MEXIT 


10 
0h ee \TSTESTNUN, \T$TSTSEQ 


D 
M$INCR TS$TSTSEQ 
MSGNINS <TRAP C$PNTF> 
art SVCINS 


CSPNTF 
»MEXIT 
~ ENDC 
-IF EQ SVCINS 

TRAP CSPNTF 
»-MEXIT 
- ENDC 
-IF GT SVCINS 
. IST 

»NLIST 


-ENDC 
- IRP N,<\TSARGCNT *2+2> 
M$GNINS <ADD #N, SP> 


. ENDM 
M$GNINS <ADD #4, SP> 
he: = 


EN 

-1F EQ SVCINS 
ADD 

oMEXIT 


« ENDC 
-IF GT SVCINS 
“LIST 


#4,SP 


«NLIST 


IF B <> 

MSPRINT CS$PNTF ,A#JFK1,<> 
-MEXIT 

~ENDC 

IF 6 <> 


TRAP 


ADD 


SP ,RO 


CSPNTF 


#4 ,SP 


SEQ 0325 





TEST 1: 


| 
| 
| 


26 
27 014554 
28 
29 014560 
4 014564 
32 014566 
33 
34 014572 


014572 


014572 


014572 


014572 





004737 


005737 
001414 


004737 


000001 
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MSPRINT CSPNTF ,#JFK1,<>,<> 
-MEXIT 
F <> 
MSPRINT CSPNTF ,A#JFK1,<>,<>,<> 
<> 
M$PRINT CS$PNTF ,AJFK1,<>,<>,<>,<> 


<> 
MSPRINT CSPNTF ,AJFK1,<>,<>,<>,<>,<> 


<> 
MSPRINT CSPNTF ,AJFK1,<>,<>,<>,<>,<>,<> 


<> 
MSPRINT CSPNTF ,AJFK1,<>,<>,<>,<>,<>,<>,<> 


- ENDC 
MSPRINT CSPNTF ,AUFK1,<>,<>,<>,<>,<>,<>,<>,<> 


011650 CALL RUNDM 
002220 TST URNING 

BEQ NOGOER 
004566 CALL RESPDM 


PRINTF #JFK5 
cre MS$PRINT 


MJFKS 
-ERROR = ;MISSING FORMAT 


- 
@ 


‘“ B << 

MSPRINT C$PNTF ,AJFKS 

-MCALL MS$COUNT ,MSPUT ,MSGNINS ,M$SVC 
TSARGCNT=1 

M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 


-IF NB <> 

M$COUNT TSARGCNT,<>,<>,<>,<>,<>,<>,<>,<> 
ENDC 

-IF NB <> 

TSARGCNT=T$ARGCNT +1 

.ENDC 


. IRP N,<\TS$ARGCNT> 
M$PUT #N,AIFKS,<>,<>,<>,<>,<>,<>,,<> 


M$PUT #1,MJFK5S,<>,<>,<>,<>,<>,<,0O,0 
-MCALL M$PUT1 

-IF NB <#JFK5S> 

M$PUT <AMJFK5S>,<>,<>,<>,<>,<>,<>,<>,<> 
-MCALL M$PUT1 


START DMS RUNNING 


SEE IF ANY STARTED 
NONE = FATAL 


AWAIT FORMAT COMPLETION 


SEQ 0326 


———------_-_— 
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014572 


014572 


014572 012746 014677 


014576 


014576 


014576 012746 000001 








NB <> 
<>, <>, 9,2, 69,69, <9, 0,0 


.IF NB <#JFK5> 


FB 
M$GNINS <MOV MJFKS,=(SP)> 
-IF LT SVCINS 


MOV #JFKS,=(SP) 
«MEXIT 


- ENDC 

IF EQ SVCINS 
MOV 

-MEXIT 

«ENDC 

IF GT SVCINS 

-LIST 


MJFKS,-(SP) 


«NLIST 


-IF DIF B,<#JFK5> 
;ILL. ARG. ‘@JFKS** ONLY 'B’' IS ALLOWED. 


M$GNINS <CLR 
M$GNINS <BISB 


-(SP)> 
~(SP)> 


-IF NB <A1> 
M$PUT1 #1 
MSGNINS 


M$GNINS <MOV #1,-(SP)> 

IF LT SVCINS 

MOV #1,-(SP) 

»MEXIT 

-ENDC 

IF EQ SVCINS 
MOV 

»MEXIT 

- ENDC 

-IF GT SVCINS 

LIST 


#1,-(SP) 


»NLIST 
-ENDC 


.IFF 
IF DIF B,<#1> 
toni sILL. ARG. *#1°' ONLY 'B' IS ALLOWED. 


-ENDC 
M$GNINS <CLR 
oo <BISB 


-(SP)> 
~(SP)> 


MOV 


MOV 


MJFKS,=(SP) 


#1 ,-(SP) 


SEQ 0327 


—_- --_- - -——-_  - —_—_—-- + FC ES a eee noe 
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014602 M$GNINS <MOV SP ,RO> 
-IF LT SVCINS 
MOV SP,RO 
»MEXIT 
-ENDC 
-IF EQ SVCINS 

014602 010600 MOV SP ,RO 
»MEXIT 


-ENDC 
-IF GT SVCINS 
IST 


eNLIST 
- ENDC 
014604 M$SVC C$PN 
-MCALL MSCNINS, M$TSTLAB 
014604 M$TSTLAB 


-MCALL_ M$TLABEL,.MSINCR 
-IIF LT TSTSTMAC, .MEXIT 


0 
ge \TSTESTNUN, \TSTSTSEQ 


TSEQ 
014604 M$GNINS < 4 CSPNIF > 


-EN 
IF EQ SVCINS 

014604 104417 TRAP C$PNTF 
»MEXIT 


« ENDC 
-IF GT SVCINS 

eNLIST 
- ENDC 


. IRP N,<\TSARGCNT *2+2> 
MSGNINS <ADD AN, SP> 


014606 M$GNINS <ADD #4 ,SP> 
IF LT SVCINS 


~EN 

-1F EQ SVCINS 
014606 062706 000004 ADD #4 ,SP 
»MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


»NLIST 
-ENDC 
»MEXIT 
-ENDC 





MOV 


TRAP 


ADD 


SP,RO 


CSPNTF 


#4 ,SP 


SEQ 0328 


=n 


mn 
” 


35 
36 014612 


014612 


000041 


010020 
000040 


IF B 
M$PRINT 
-MEXIT 
-ENDC 
IF B 
MSPRINT 
-MEXIT 
-ENDC 
-IF B 
MS$PRINT 
-MEXIT 
»ENDC 
-IF B 
MS$PRINT 
»MEXIT 
- ENDC 
-IF B 
MSPRINT 
-MEXIT 
« ENDC 
-IF B 
MSPRINT 
-MEXIT 
- ENDC 
-IF B 
MS$PRINT 
-MEXIT 
-ENDC 
MSPRINT 
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<> 
CSPNTF ,A#JFKS,<> 
<> 
CSPNTF ,AJFK5,<>,<> 
<> 
CSPNTF ,AJFKS,<>,<>,<> 
<> 
CSPNTF ,AJFK5,<>,<>,<>,<> 
<> 
CSPNTF ,AJFKS,<>,<>,<>,<>,<> 
<> 
CSPNTF ,AJFKS,<>,<>,<>,<>,<>,<> 


<> 
CSPNTF ,AJFKS, <>, <>, <>, <>, <>, <>, <> 


CSPNTF ,AJFKS,<>,<>,<>,<>,<>,<>,<>,<> 
EXIT 
-MCALL M$SV 
TSF LAG=F SEND 


MSCHECK TST, TSTEMP, TSFLAG 
-IF IDN <TST>,<TST> 
TSTEMP=TSS$TEST 
TSFLAG=I$TST = 


»MEXIT 
- ENDC 


-IF IDN <SUB>,<TST> 
TSTEMP=T$$SUB 
T$FLAG=I$SUB 


-MEXIT 


~ ENDC 

-IF IDN <SEG>,<TST> 
TSTEMP=TS$$SEG 
TSFLAG=I$SEG 


»MEXIT 


IF IDN <INIT>,<TST> 
TSTEMP=TS$$INIT 


- ENDC 


TSFLAG=ISINIT 
MEXIT 


-IF IDN <CLN>,<TST> 
TSTEMP=T$$CLEAN 
TSFLAG=I$CLN 


TST 
C .MSEXIT MSEXSEG,MSEXTJ ,M$GETTOP ,M$CHECK ,MSWORD , XFER 


SEQ 0329 


[neni eeeeneee - ee —— 
! 
| 


-MEXIT 

-ENDC 

-I1F IDN <SRV>,<TST> 
TSTEMP=TS$SRV 
TSFLAG=I$SRV 

-MEXIT 

« ENDC 

| .IF IDN <MSG>,<TST> 
TS$TEMP=T$$MSG 

TSF LAG=F $JMP 

-MEXIT 


- ENDC 

-IF IDN <RPT>,<TST> 
TSTEMP=TS$RPT 

TSF LAG=F $JMP 

-MEXIT 


-ENDC 

-IF IDN <DU>,<TST> 
TSTEMP=T$$DU 

TSF LAG=F $JMP 
-MEXIT 

.ENDC 

.IF IDN <AU>,<TST> 
TSTEMP=T$$AU 

TSF LAG=F SUMP 
~MEXIT 


| 
| 
| 
“IF EQ TSFLAG-F $JMP 
J$JMP 
MSEXTJ \T$TEMP 


-1F EQ T$FLAG-F $BGN 
014612 M$SVC CS$EXIT 

-MCALL M$GNINS ,M$TSTLAB 
014612 M$TSTLAB 

-MCALL_ M$TLABEL .MSINCR 

-1IF LT TSTSTMAC, .MEXIT 


° 10 
M$TLABEL \T$TESTNUN, \T$TSTSEQ 


IX 
M$INCR TSTSTSEQ 
014612 M$GNINS ya CSEXIT> 


«END 
IF EQ SVCINS 

014612 104432 TRAP CSEXIT 
-MEXIT 


~ENDC 
-IF GT SVCINS 
. IST 


eNLIST 
. ENDC 
-IF IDN <SEG>,<ITST> 


TRAP 


CSEXIT 


SEQ 03350 
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MS$GETTOP TSSEK,TSSEGLEV, TSTEMP 
| — \TSTEMP 
| 014614 MSEXIT \TSTEMP 
-MCALL MS$GNINS 
| 014614 MSGNINS <, ay L10020-.> 
| sar UT SVCIN 
* WORD {10030-. 
.MEXIT 
~ENDC 
~IF €Q SVCI*S 
014614 000114 -WORD 110020-. 
-MEXIT 
IF GT SVCINS 
. IST 
-NLIST 
~ENDC 
ENDC 
MEXIT 
~ENDC 
.I1F IDN <HRD>,<TST> 
MSGETTOP T$NS, TSNESTLEV, TSTEMP 
.IF EQ FSHARD-TS$TEMP 
| ~IRP N,<\TS$$HARD> 
XFER L'N 
.~ENDM 
»MEXIT 
-ENDC 
~IF IDN <SFT>,<TSI> 
MS$GETTOP T$NS, T$NESTLEV, TSTEMP 
.IF EQ FSSOFT-TSTEMP 
. IRP N,<\TS$$SOF T> 
XFER L'N 
~ENDM 
-MEXIT 
-ENDC 
-ENDC 
37 -ERROR ;ILL. ‘EXIT TST*’ STMT. 
38 014616 NOGOER: ERRSF NOGOM 
-MCALL MS$ERRINS 
014616 MSERR RINS NOGOM, ,, CSERSF 
-MCALL INS MSUORD. “MSTSTLAB 
014616 MSSVC CSERS 
-MCALL MSGNINS. M$TSTLAB 
014616 M$TS STLAB 


-MCALL_ M$TLABEL,.MSINCR 
TIF LT TSTSTMAC, .MEXIT 


«RADIX 10 
M$TLABEL \TSTESTNUN, \TSTSTSEQ 
- RADIX 
M$INCR TS$TSTSEQ 
014616 M$GNINS <TRAP C$ERSF> 


IF LT SVCINS 





. WORD 


L10020-. 


SEQ 0351 


———= — —_- 


014616 104454 


| 
000012 
014626 


014620 


014620 


014 


oO 
NN 
Oo 


014626 


000010 


014622 


014622 


014622 000000 
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TRAP CSERSF 
XIT 


-1F EQ SVCINS 
TRAP 


CSERSF 

.MEXIT 
SENDC 
-IF_GT SVCINS 
/- sT 

: .NLIST 
"RADIX 10 
“IF NB NOGOM 


T'SERRNUM=NOGOM 

~ERROR ;MISSING ERROR-NR 
~ENDC 

M$WORD \TSERRNUM 

-MCALL MS$GNINS 

. IRP N,<6550> 

M$GNINS <.WORD N> 

.~ENDM 

M$GNINS <.WORD 6550> 


-IF LT SVCINS 
-WORD 6550 


-IF EQ SVCINS 
«WORD 6550 


IF GT SVCINS 


eNLIST 


0 
~~ M$GNINS 
- RP N,<0> 
MSGNINS <.WORD N> 
M$GNINS <,wORD (> 
IF .F y Pie 


»MEXIT 

» ENDC 

-1F EQ SVCINS 
«WORD 0 

-MEXIT 


- ENDC 
if iy SVCINS 


Lis 


TRAP 


- WORD 


CSERSF 


6550 


SEQ 0332 


i 
| 014624 


014624 


014624 


39 014626 
40 014653 
41 014677 


45 014730 
014730 


014730 
014730 


014730 
014730 
014730 





000000 


000041 


000001 
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. WORD 
«NLIST 
~ENDC 
«ENDC 
IF 
M$WORD 
IFF 
M$WORD 0 
-MCALL MS$GNINS 
. IRP N,<0> 
MSGNINS <.WORD N> 
M$GNINS <.WORD 0> 
IF LT SVCINS 
“WORD 0 
»MEXIT 
- ENDC 
IF €Q SVCINS 
«WORD 0 
-MEXIT 
-ENDC 
IF GT SVCINS 
. IST 
«WORD 
eNLIST 
-ENDC 
- ENDC 
NOGOM: .ASCIZ /%NZANO UNITS STARTED/ 
JFK1: eASCIZ /%NZAFORMAT(S) BEGUN/ 
JFKS: eASCIZ /%NZAFORMAT(S) COMPLETED/ 
ENDTST 
-MCALL M$POP,M$GNTAG,M$SVC ,MSENDERR 
F$BGN-I$TST 


-IF EQ 
istst= =F $END 
“ERROR :MISSING 'BGNTST'' 
“MEXIT 

M$POP TS$NS,T$NESTLEV, TSTEMP 


-MCALL M$GETS,MS$DECR 
-IF LT T$NESTLEV 


-ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 
-MEXIT 

- ENDC 

M$GETS TSNS,\TSNESTLEV,TSTEMP 

TSTEMP=T$NS1 


M$DECR TS$NESTLEV 
T$NESTLEV=TSNESTLEV~1 

IF £Q FSTEST-TSTEMP 
MSGNTAG | , T$S$TEST 

-MCALL M$GEN 

M$GEN_  L,\TS$$TEST,SVCTAG 
IF LE SVCTAG 

L10020: 


SEQ 0333 


——— 
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TEST 1 


| 


014730 
014730 


014730 


014730 


46 
47 014732 


014732 


014732 
014732 





010000 


104401 


000041 


000041 


000000 
177777 


L10020: 
eNLIST 
olga 8 bad 
M$SVC =C$ETS 
»MCALL MSGNINS, M$TSTLAB 
M$TSTLAB 
-MCALL MS$TLABEL.M$INCR 
~lIF LT TSTSTMAC, .MEXIT 
-RADIX 10 
MSTLABEL \TSTESTNUN, \T$STSTSEQ 
-RADIX 8 
MSINCR TSTSTSEQ 
MSGNINS <TRAP C$ETST> 
-IF LT SVCINS 
TRAP CSETST 
-MEXIT 


~ ENDC 
IF EQ SVCINS 

TRAP CSETST 
»MEXIT 


-ENDC 
IF GT SVCINS 
«i tST 
TRAP 
»NLIST 


- ENDC 
istst= =F SEND 
eo ENDTST, TSTEMP 


ENDMOD 
-MCALL M$POP ,MSENDERR 
IF EQ F$BGN-I$MOD 
4 7 pineal 


Eeeee ; MISSING *BGNMOD"' 
M$POP TS$NS,TSNESTLEV, TSTEMP 


-MCALL M$GETS,MSDECR 
-IF LT T$NESTLEV 


«ERROR T$NESTLEV ; MACRO T$NS UNDERFLOW 
»MEXIT 

- ENDC 

M$GETS TSNS,\TSNESTLEV, TSTEMP 

TSTEMP=TS$NSO 


M$DECR TS$NESTLEV 
T$NESTLEV= Fone S TLE? 
F F$MOD-T$T 


EMP 
M$ENDERR ENDMOD , TSTEMP 


CSETST 


SEQ 0334 


| 10 
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1 : . TITLE PARAMETER CODING 
3 .SBITL HARDWARE PARAMETER CODING SECTION 
4 0146732 BGNMOD 


.MCALL M$GNGBL ,M$PUSH 
"IF NE FSEND-1$MCD 
-ERROR :"BGNMOD'' IN MOD 


l 
000040 1 SMOD=F $BGN 


014732 M$PUSH TS$NS,TSNESTLEV,F $MOD 
-MCALL MS$INCR,MS$SETS 
014732 M$INCR T$NESTLEV 
000000 TSNESTLEV=T$NESTLEV+1 
014732 M$SETS TSNS,\TS$NESTLEV,F $MOD 
000000 T$NSO=F $MOD 


s+¢ 

; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

3; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


— ees 
MSW -ODONAW 


014732 BGNHRD 
-MCALL M$PUSH,MSINCR,M$GNINS ,M$GNGBL 
000040 I$HRD=F $BGN 
014732 M$PUSH TS$NS,TSNESTLEV,F SHARD 
-MCALL M$INCR,M$SETS 
014732 M$INCR TSNESTLEV 
000001 TSNESTLEV=TS$NESTLEV+1 
014732 MS$SETS _TSNS,\TSNESTLEV,F SHARD 
000004 T$NS 1=F SHARD 
010021 T$$HARD=T$TAGNUM 
014732 M$INCR = T$TAGNUM 
010022 T$TAGNUM=T$TAGNUM+ 1 
. IRP TAG, <\TS$HAR 
MSGNINS <.WORD L" TAG’ -L$HARD/2> 


- END 
014732 ISGNINS <0 — L10021-L$HARD/2> 
“WORD 10021 =LSHARD/2 


" ENDC 
"IF EQ SVCINS 
014732 000052 aaa .WORD L10021-L$HARD/2 


- ENDC 
IF eT SVCINS 


-WORD L10021=i $HARD/2 





—— 
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«NLIST 


014734 M$GNGBL LS$HARD 
MCALL MS$GEN 
- IF NB,LSHARD 
/1F_NB, 
M$GEN  L$HARD,:,SVCGBL, 


-IF B, 

014734 M$GEN  L$HARD,:,SVCGBL,< > 
~IF LE SVCGBL 

014734 LSHARD: : 


NLIST LSHARD:: 


6 
7 
: ; HARDWARE PARAMATER TABLE FORMAT 


; UNIBUS ADDRESS 


0 
21 000000 PT.UBA : 
22 ; UNIT NUMBER 


000002 FPT.UNIT 
23 000004 PT.FLAG ; STARTUP FLAGS 
24 000006 PT. SNUM ; SERIAL NUMBER 


25 
26 014734 GPRMA  PTM.UBA ,PT.UBA,0,0,-1,YES 
.MCALL M$RADIX,MSDEF AULT ,MSEXCP ,MSWORD ,M$CNTOP 


. A,0 
. ERROR "INVALID RADIX 
- ENDC 
000000 T$TEMP=PT .UBA&1 
-IF NE TSTEMP & 1 
-ERROR ;ODD OFFSET 


"IF LT G$OFSIZE-PT.UBA 
"ERROR ;OFFSET TOO BIG 


- ENDC 
000001 TSCODE=G$PRMA + <PT.UBA * GS$OFFSET> 
014734 M$RADIX O,TSTEMP 


ALNO 


-IF IDN 0,0 
000020 TSTEMP= NG SRADO 
- ENDC 
-IF IDN D,O 
T$TEMP=G$RADD 
-MEXIT 
-ENDC 


-IF IDNL,O 
T$TEMP=G$RADL 








Ree ea es aT 


0 
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»MEXIT 


.IF IDN A,O 
T$TEMP=G$RADA 
. XIT 
-ENDC 
TSTEMP=-1 
.ERROR ;ILL. RADIX ‘'0" 
000021 T$CODE=T$SCODE | TS$TEMP 
014734 M$DEF AULT YES, T$TEMP 
.IF IDN YES, YES 
000010 TSTEMP=GS$YES 
=MEXIT 


- END 

IF TDN NC, YES 

T$TEMP=G$NO 

»MEXIT 

~ENDC 
TSTEMP=~1 

ERROR ;DEFAULT ‘'YES'’ MUST BE ‘'YES** OR ‘'NO"' 


000031 TSCODE=TSCODE |! TSTEMP 
000000 TSEXCP=0 
014734 MSEXCP FSCO TSEXCP,G$LOLIM, T$LOLIM,0 
-IF IDN <a <0> 


IF LT GSor §17e- 

-ERROR ;INDIRECT PAR. TOO BIG 
“MEXIT 

- ENDC 

TSLOLIM=/2 

T$CODE=T$CODE ! GSEXCP 

4: paecatmnt ! G$LOLIM 


-IF B, 
000000 T$LOL im=0 
~ERROR ;ILL. DEFERRED MODE 
ese 
014734 MSEXCP IS pb wggened TSEXCP, G$HILIM,T$HILIM,~1 
<a 
oar OT Gsor$ize~ 
«ERROR ; INDIRECT PAR. TOO BIG 
“MEXIT 
- ENDC 
TSHILIM=/2 
TSCODE=T$CODE ! G$EXCP 
+t pall reed ! GSHILIM 
FB. 
177777 iBirCime= 


~IFF 
-ERROR ;ILL. DEFERRED MODE 
-ENDC 


"ENDC 
014734 MSCNTOP <>, <T$CODE> 
"IF NE I$SFT = FS$BGN 





4 


014734 


014734 


014734 


014736 


014736 


014740 


014740 


014742 


000031 


015060 


000000 


N 10 
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«ERROR ; ‘'COUNT’’ OPTION VALID ONLY IN S.W. 


ne y 
T$CODE= =TSCODE ! GSCNTOP 


' MSWORD <TSCODE,PTM.UBA, TSLOLIM, TSHIL IM> 


-MCALL MS$GNINS 
. IRP N,<T$CODE ,PTM.UBA, T$LOL IM, T$HIL IM> 
MSGNINS <:WORD N> 


M$GNINS <.WORD TS$CODE> 
IF LT SVCINS 

«WORD T$CODE 

~MEXIT 


- ENDC 
-iF EQ SVCINS 

-WORD TS$CODE 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-LIST 

-NLIST 


- ENDC 
M$GNINS <.WORD PTM.UBA> 
-IF LT SVCINS 
-WORD_ PTM,.UBA 
»MEXIT 
-ENDC 
-IF EQ SVCINS 
-WORD PTM.UBA 
-MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 


»NLIST 

MSCNINS <.WORD T$LOLIM> 
IF LT SVCINS 
-WORD  T$LOLIM 
»MEXIT 
-ENDC 
IF EQ SVCINS 

-WORD T$LOLIM 
»MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 


‘met «NLIST 
MSGNINS <, mg T$HIL IM> 
IF LT SVCIN 
. WORD TSHILIM 
“ME XIT 


« ENDC 


QUES. 


- WORD 


- WORD 


. WORD 


TSCODE 


PTM.UBA 


TSLOLIM 


SEQ 0338 
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-IF EQ SVCINS 


014742 177777 «WORD T$HILIM 
-MEXIT 
- ENDC 
IF GT SVCINS 
we T 
«WORD T$HILIM 
eNLIST 


c 
-IF NE TS$EXCP 
M$WORD TSEXCP 


-1F NB 
M$WORD </2> 


27 014744 GPRMD PIM.UNIT,PT.UNIT,D,-1,0,255,YES 
ALL MSRADIX.MSDEF AULT ,MSEXCP, MSWORD: M$CNTOP 


GMANID 
ae sASCII RADIX VALID ONLY ON ‘'GMANID"' 


. ENDC 

000000 TSTEMP=PT .UNIT&1 
-IF NE TSTEMP & 1 
-ERROR ;ODD OFFSET 


-IF LT GSOFSIZE-PT.UNIT 
-ERROR ;OFFSET TOO BIG 


-ENDC 
001002 TSCODE=G$PRMD + <PT.UNIT * GSOFFSET> 
014744 MSRADIX D,TSTEMP 
-IF IDN B,D 
T$STEMP=G$RADB 
»MEXIT 
- ENDC 
IF IDN O,D 
TSTEMP= GSRADO 
-MEXIT 
- ENDC 
-IF IDN D,D 
000040 TSTEMP=GSRADD 
T 


IF IDNL,D 
+17 A meamtog. 


ER -ILL. RADIX 
001042 TSCODE=T$CODE | TSTEMP 
014744 M$DEF AULT YES, T$TEMP 
.IF IDN YES,YES 
000010 TSTEMP=G$YES 





oo CC ee ~+--- ——- -—— - — - —- _ _ 


001052 
0000 
014744 


000000 


014744 


000255 


014744 


014744 


014744 
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»MEXIT 


-ENDC 
.IF_IDN NO,YES 
TSTEMP=G$NO 


i$TEMP==1 
.ERROR ;DEFAULT ‘'YES'’ MUST BE ‘'YES’’ OR ‘'NO’' 
T$CODE=TSCODE | TSTEMP 
TSEXCP= 
MSEXCP TSCODE . TSEXCP, G$LOLIM, T$LOLIM,0 
.IF IDN <a@>,<0> 
“IF LT GSOFSIZE- 
“ERROR ; INDIRECT PAR. TOO BIG 
“MEXIT 
“ENDC 
T$LOLIM=/2 
TSCODE=T$CODE ! GSEXCP 
TSEXCP=TSEXCP ' GSLOLIM 


IF B, 
T$LOL im=0 
yo~ gle :ILL. DEFERRED MODE 


ENDC 
MSEXCP paige TT taal -G$HILIM, T$H!ILIM,255 


- ENDC 

TSHILIM=/2 
TSCODE=T$CODE ! G$EXCP 
TSEXCP=TSEXCP ! GSHILIM 


-IF B, 

TSHILIM=255 

-ERROR ;ILL. DEFERRED MODE 
ENDC 


-ENDC 

MSCNTOP <>,<T$CODE> 
IF NB 

-IF NE IS$SFT - 


F $BGN 
-ERROR ; “‘COUNT’' OPTION VALID ONLY IN S.W. QUES. 


cg 
T$CODE= =T$CODE ! G$CNTOP 


M$WORD <T$CODE,PTM.UNIT,-1,T$LOLIM, T$HILIM> 
-MCALL M$GNINS 

. IRP N,<T$CODE ,PTM.UNIT,-1,T$LOLIM, T$HILIM> 
MSGNINS 2 “WORD N> 


. ENDM 
M$GNINS <.WORD TSCODE> 
IF LT SVCINS 


SEQ 0340 


-———- --—- --- -- --—-—- -—- -- --- OC ree ee eee 
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014744 


014746 


014746 


014750 


014750 


014752 


014752 


014754 





001052 


015106 


177777 


000000 


«WORD TS$CODE 
EXIT 


-1F EQ SVCINS 
» WORD 

-MEXIT 

- ENDC 

IF GT SVCINS 

LIST 


~~ 


-ENDC 
MS$GNINS <.WORD 


-EN 
IF EQ SVCINS 
. WORD 
-MEXIT 
-ENDC 
-I1F GT SVCINS 
IST 


-ENDC 

MS$GNINS <.WORD 

IF LT SVCINS 

«WORD  =-1 

-MEXIT 

-ENDC 

IF EQ SVCINS 

. WORD 

-MEXIT 

- ENDC 

-IF GT SVCINS 
Ist 


- ENDC 
M$GNINS <.WORD 


-ENDC 
IF EQ SVCINS 
. WORD 
»MEXIT 
~ ENDC 
IF GT SVCINS 
IST 


-ENDC 

M$GNINS <.WORD 
IF LT SVCINS 
«WORD T$HILIM 


D 11 
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TSCODE 


eNLIST 
PTM.UNIT> 


PTM.UNIT 


«NLIST 


eNLIST 
TSLOL IM> 


TSLOLIM 


»NLIST 
T$HIL IM> 


. WORD 


«WORD 


. WORD 


. WORD 


TSCODE 


PTM.UNIT 


TSLOLIM 


SEQ 0341 


Ce ooo oe 
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| 

| 

| 

-MEXIT 

~ENDC 

.1F EQ SVCINS 

014754 000255 .WORD TS$HILIM 

.MEXIT 


-ENDC 

-IF GT SVCINS 

LIST 

«WORD TS$HILIM 
»NLIST 

- ENDC 

-IF NE TSEXCP 

M$WORD TS$EXCF 

- ENDC 


-1F NB 
M$WORD </2> 
-ENDC 

28 014756 GPRML PTM.RES,PT.FLAG,USERES,YES : Qi 
.MCALL M$RADIX,MSDEF AULT ,MSWORD ,MSCNTOP 

000000 TSTEMP=PT .FLAGS1 

-IF NE TSTEMP @ 1 
-ERROR ;ODD OFFSET 


-IF LT G$OFSIZE-PT.FLAG 
«ERROR ;OFFSET TOO BIG 


- ENDC 
002000 TS$CODE=GS$PRML + <PT.FLAG * G$OFFSET> 

014756 M$RADIX L,TSTEMP 
-IF IDN B,L 
TSTEMP=G$RADB 
-MEXIT 

-ENDC 

IF IDN O,L 

hey te G$RADO 

- ENDC 

IF IDN 
+$TEMPs GSRADD 
-MEXIT 


- ENDC 
-I1F IDN 
000120 TSTEMP= GSRADL 
-ENDC 
IF IDN A,L 
gp G$RADA 


. ENDC 
TSTEMP=-1 
ERROR ;ILL, RADIX ‘"' 
002120 TSCODE=TSCODE : TSTEMP 
014756 MSDEF AULT YES, T$TEMP 
IF _IDN YES,YES 
000010 TSTEMP=G$YES 
-MEXIT 


- ENDC 
-IF IDN NO,YES 
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| HARDWARE PARAMETER 


002130 


014756 


014756 


014756 002130 


014760 


014760 015134 


014762 


014762 000001 





ODING SECTION 


TSTEMP=G$NO 
.MEXIT 
“ENDC 
TS$TEMP=-1 
.ERROR :DEFAULT '‘YES'' MUST BE ‘‘'YES’' OR ‘'NO’' 
TSCODE=T$CODE | TSTEMP 
x ¥ <>,<T$CODE> 


IF 
-IF NE I$SFT = F$BGN 
eat 3 “‘COUNT’* OPTION VALID ONLY IN S.W. QUES. 


- ENDC 
TSCODE=TSCODE :! GSCNTOP 
ENDC 


M$WORD <TS$CODE,PTM.RES,USERES> 
— M$GNINS 

. IRP N,<T$CODE ,PTM.RES,USERES> 
MSGNINS <:WORD N> 


MSGNINS <. — TSCODE> 


ENDC 
IF EQ SVCINS 

«WORD TS$CODE 
-MEXIT 


-ENDC 
IF GT SVCINS 
. IST 
- WORD 
eNLIST 


- ENDC 
M$GNINS <.WORD PIM.RES> 


. ENDC 
IF EQ SVCINS 

-WORD PITM.RES 
»MEXIT 


-ENDC 
~IF GT SVCINS 
"LIST 
.- WORD 
»NLIST 


-ENDC 
M$GNINS <.WORD USERES> 


-EN 
IF EQ SVCINS 

«WORD USERES 
»MEXIT 


»ENDC 
IF GT SVCINS 


TSCODE 


PTM.RES 


SEQ 0343 
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.LIST 
.WORD USERES 
«NLIST 
.ENDC 
~IF NB 
M$WORD </2> 
.ENDC 
29 014764 XFERF ASKDLL : 'N’ => 04 
| .MCALL M$XFER 
014764 M$XFER X$FALSE,ASKDLL 
.MCALL M$GETTOP,M$WORD 
014764 MSGi TTOP TSNS, TSNESTLEV, TSCODE 
.MCALL M$GETS 
014764 MSGETS T$NS,\TSNESTLEV, TSCODE 
000004 TSCODE=T$NS1 


.1F NE FSHARD = TSCODE 
-IF NE FSSOFT = TSCODE 
‘Tontt 7''"XFER'S'' MUST BE IN GPRM CODING. 


- ENDC 


- ENDC 
000014 TSCODE=ASKDLL -_. 
-IF GT TSCODE-376 
‘ont :""XFER’’ RANGE TOO BIG 


-ENDC 
006000 TSCODE=TSCODE * X$OFFSET 
006044 T$CODE=TSCODE + GS$XFER + X$FALSE 
014764 M$WORD TS$CODE 
MCALL M$GNINS 
~ IRP N,<T$CODE> 
M$GNINS <.WORD N> 


-ENDM 
014764 MSGNINS <. WORD TSCODE> 
-WORD T$CODE 
XIT 


- ENDC 
IF EQ SVCINS 


014764 006044 -WORD TS$CODE 
»MEXIT 
- ENDC 
-IF GT SVCINS 

«WORD TS$CODE 
»NLIST 
- ENDC 
30 014766 GPRML PIM.STP,PT.FLAG,STPBAD,YES 3 Q2 
-MCALL M$RADIX ,MSDEF AULT ,M$WORD ,M$CNTOP 
000000 TSTEMP=PT .FLAG&1 


-IF NE TSTEMP @ 1 
-ERROR ;ODD OFFSET 


-IF LT GS$OFSIZE-PT.FLAG 
«ERROR ;OFFSET TOO BIG 


-ENDC 
002000 TSCODE=G$PRML + <PT.FLAG * GS$OFFSET> 
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014766 


| 

| 
014766 
014766 
014766 


014766 


014766 


000120 


002120 


000010 


0021 30 


002130 


MSRADIX L,TSTEMP 
-IF_IDN B,L 
or ne 


“IF IDN 
TSTEMP= NG$RADO 


«ENDC 

IF _ IDN D,L 
TSTEMP=GSRADD 
- ENDC 

-IF IDN 
TSTEMP= GSRADL 
»MEXIT 

« ENDC 

-I1F IDN 
TSTEMP= GSRADA 
-MEXIT 

~ ENDC 
TSTEMP==1 


.ERROR ;ILL. RADIX ° 
T$CODE=T$CODE |! T$TEMP 
YES, I$TEMP 


M$DEF AULT 

-IF IDN YES,YES 
TSTEMP=G$YES 
-MEXIT 


-IF IDN NO,YES 
T$TEMP=G$NO 
-MEXIT 

- ENDC 
TSTEMP=~1 


~ERROR ;DEFAULT ‘’YES'* MUST BE ‘’YES'’ OR ‘NO’ 
TSCODE=T$CODE ! TSTEMP 
arg» <>,<T$CODE> 


IF 
-IF NE IS$SFT - FS$BGN 
-ERROR ; ‘‘COUNT'’ OPTION VALID ONLY IN S.W. QUES. 


-MEXIT 


-ENDC 
SCODE=TSCODE ! GS$CNTOP 
M$WORD <I$CODE,PTM.STP,STPBAD> 


-MCALL M$GNINS 


. IRP N,<TSCODE,PTM.STP,STPBAD> 
MSGNINS <.WORD \> 


EN 
M$GNINS anf TSCODE> 


-ENDC 
IF EQ SVCINS 
»MEXIT 


«WORD TS$CODE 


SEQ 0345 


111 
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“HARDWARE PARAMETER 


| 
| 
| 


— 


014770 


014770 


014772 


014772 


014774 
014774 
014774 
014774 


015155 


000002 


000004 


000064 


032000 


ODING SECTION 


-ENDC 
IF GT S 
LIST 


-ENDC 
M$GNINS 
oIF LY S$ 
. NORD 
-MEXIT 


- ENDC 
-IF EQS 
»MEXIT 
-ENDC 
Af GTS 
IST 


-ENDC 
M$GNINS 
JF LT § 


IF EQS 


-IF GTS 
T 


»-MCALL 
M$GETTOP 
-MCALL 
M$GETS 
T$CODE=T 
IF NE F 
IF NE F 
- ERROR 
~MEXIT 
- ENDC 

DC 


VCINS 
.~ WORD 
eNLIST 
<.WORD PTM.STP> 
VCINS 
PTM.STP 
VCINS 
~WORD PITM.STP 
VCINS 
WORD 
«NLIST 
<.WORD STPBAD> 
VCINS 
STPBAD 
VCINS 
~WORD STPBAD 
VCINS 
. WORD 
-NLIST 
</2> 
XFERT PTDONE : *y' => DONE 
M$XFER 
X$STRUE ,PTDONE 
M$GET TOP ,M$WORD 
TSNS, TSNESTLEV, TSCODE 
M$GETS 


T$NS,\TSNESTLEV, TSCODE 
$NS1 


$HARD - TSCODE 
$SOFT - TS$CODE 
7''XFER'S*’ MUST BE IN GPRM CODING. 


~EN 
T$CODE=PTDONE - , 


IF GT T 
- ERROR 
»MEXIT 


- ENDC 
TSCODE=T 


$CODE-376 
;'"XFER"* RANGF TOO BIG 


$CODE * X$OFFSET 


TSCODE 


PT™M.STP 


STPBAD 


SEQ 0346 
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| 032024 TSCODE= =TSCODE. + GS$XFER + X$TRUE 


0146774 M$wORD 

-MCALL M$GNINS 
~IRP N,<TS$CODE> 
oe <.WORD N> 


«END 
014774 MSGNINS no T$CODE> 


-EN 
IF EQ SVCINS 


o 

i=] UxMD 

A000 Ono 
4 

— 

bad 

oO 

o2 

J 

m 


014774 032024 «WORD TS$CODE 
-MEXIT 
-EN 
IF GT SVCINS 
«LIS 

«WORD T$CODE 
«NLIST 
- ENDC 
32 014776 XFER GTSNUM ; : "N’ => Q3 

-MCALL M$XFER 

014776 M$XFER X$ALWAYS,GTSNUM 
-MCALL M$GETTOP,M$WORD 

014776 M$GETTOP TSNS, TSNESTLEV, TSCODE 
-MCALL M$GETS 

014776 M$GETS T$NS,\TSNESTLEV, TSCODE 

000004 T$CODE=T$NS1 


-I1F NE F$HARD - TS$CODE 

-IF NE FSSOFT = TSCODE 

-ERROR ;''XFER'S** MUST BE IN GPRM CODING. 
-MEXIT 

ros 


ENDC 
000012 TSCODE=GTSNUM - 
IF GT TSCODE-376 
- ERROR 7’ *XFER'' RANGE TOO BIG 


-MEXI 
« ENDC 
005000 TSCODE=TSCODE * XS$OFFSET 
005004 TSCODE=TSCODE + GS$XFER + X$ALWAYS 


014776 M$WORD TS$CODE 


. IRP N,<T$CODE> 
MSGNINS <.WORD N> 


- END 

014776 MSGNINS <.WORD T$CODE> 
IF LT SVCINS 
ae T$CODE 


- END 
IF EQ SVCINS 
014776 005004 «WORD TS$CODE 


-ENDC 
+f GT SVCINS 


Ads 





K 11 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL-81 15:27:47 PAGE 62-13 
| HARDWARE PARAMETER CODING SECTION 


»NLIST 
-ENDC 
33 015000 ASKDLL: 
34 015000 GPRML PTM.DLL,PT.FLAG,DLLFCT,YES 
-MCALL MS$RADIX,MEDEFAULT ,M$WORD ,M$CNTOP 
000000 TSTEMP=PT .FLAG&1 


& 
“ERROR ;ODD OFFSET 
-ENDC 


-IF LT GS$OFSIZE-PT.FLAG 
se ;OFFSET TOO BIG 


-EN 
002000 TSCODE=G$PRML + <PT.FLAG * GSOFFSET> 
015000 MSRADIX L,TSTEMP 


-IF_IDN B,L 
TSTEMP= GSRADB 
- ENDC 

-IF_IDN O,L 
T$TEMP=GSRADO 
- ENDC 

IF IDN D,L 
T$TEMP=G$RADD 
»MEXIT 

- ENDC 


IF IDN L,L 
000120 fhe G$RADL 


- ENDC 
IF _IDN A,L 
T$TEMP=G$RADA 


ERR RADIX "'L"" 
002120 iSCODE= -rétobé ' T$TEMP 
015000 M$DEF AULT VES, T$TEMP 
.IF IDN YES,YES 
000010 TSTEMP=G$YES 
.MEXIT 


-ENDC 
-1F IDN NO,YES 
bhp Apnea 


- ENDC 
TSTEMP=~1 
«ERROR ;DEFAULT ‘'YES'’ MUST BE ‘'YES'’ OR ‘'NO"’ 
002130 TSCODE=T$CODE |! TSTEMP 
015000 a's ¥ <>, <T$CODE> 


IF 
-IF NE IJ$SFT - F$BGN 


« ENDC 
TSCODE=T$CODE ! G$CNTOP 





5 04 


att ; ‘'COUNT'' OPTION VALID ONLY IN S.W. QUES. 


SEQ 0548 
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015000 M$WORD <T$CODE,PTM.DLL,DLLFCT> 
— M$GNINS 
N,<T$CODE ,PTM.DLL,DLLFCT> 
iSGhuNs <:WORD N> 
015000 M$GNINS <.WORD TS$CODE> 
IF LT SVCINS 


- ENDC 
-I1F EQ SVCINS 

015000 002130 «WORD TS$CODE 
-MEXIT 


. ENDC 
-IF GT SVCINS 
«LIST 


LIST «WORD T$CODE 
«N 


-ENDC 
015002 ° MSGNINS <.WORD PTM.DLL> 


-ENDC 
-IF EQ SVCINS 

015002 015211 »WORD PTM.DLL 
-MEXIT 


- ENDC 
-IF GT SVCINS 
. IST 


«WORD PTM.DLL 
«NLIST 
- ENDC 


015004 M$GNINS <.WORD DLLFCT> 
F SVCINS 
te DLLFCT 
C 
-I1F EQ SVCINS 
015004 000004 -WORD ODLLFCT 
C 
IF y SVCINS 
«WORD ODLLFCT 
»NLIST 
M$WORD </2> 
35 015006 XFERT PTDONE : *y' => DONE 
M$XFER 
015006 M$XFER X$TRUE,PTDONE 
M$GET TOP ,M$WORD 


«-MCALL 
015006 M$GETTOP TENS, TSNESTLEV, TSCODE 
-MCALL M$GETS 


SEQ 0349 
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015006 M$GETS TS$NS,\TSNESTLEV,TSCODE 
000004 TSCODE=T$NS1 
-IF NE F SHARD - TSCODE 
IF NE FSSOFT = TSCODE 
«ERROR ;''XFER'S'’ MUST BE IN GPRM CODING. 
-MEXIT 
« ENDC 
-ENDC 
000052 T$CODE=PTDONE - . 
.IF GT TSCODE-376 
-ERROR ;''XFER'' RANGE TOO BIG 
-MEXIT 
- ENDC 
025000 TSCODE=TSCODE * X$OFFSET 
025024 TSCODE=T$CODE + GS$XFER + X$TRUE 
015006 M$WORD TSCODE 
-MCALL M$GNINS 
- IRP N,<TS$CODE> 
MSGNINS <.WORD N> 
015006 SGNINS <.WORD TS$CODE> 
-IF LT SVCINS 
“WORD — TSCODE 
-MEXIT 
- ENDC 
IF EQ SVCINS 
015006 025024 -WORD T$CODE 
-MEXIT 
- ENDC 
-IF GT SVCINS 
-NLIST 
-ENDC 
36 015010 GTSNUM: 
37 015010 GPRMD PTM.SNUM,PT.SNUM,D,-1,0.-1,NO  ; Q3 
h, 0 aoe -MSDEF AULT ,MSEXCP .MSWORD “MS CNTOP 
-IF EQ TSGMANID 
-ERROR ;ASCII RADIX VALID ONLY ON ‘'GMANID"’ 
- ENDC 
- ENDC 
000000 TSTEMP=PT . SNUM&1 
-IF NE TSTEMP & 1 
-ERROR ;ODD OFFSET 
-ENDC 
-IF LT G$OFSIZE-PT.SNUM 
‘or ;OFFSET TOO BIG 
003002 T$CODE=G$PRMD + <PT.SNUM * GSOFFSET> 
015010 M$RADIX D,TSTEMP 
-IF IDN B,D 
T$TEMP=G$RADB 
-MEXIT 
-ENDC 
-IF _IDN O,D 
T$TEMP=G$RADO 





. WORD 


SEQ 0350 | 


| 
| 
} 
| 
| 
| 
TSCODE 
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600040 


00342 
015010 


000000 


003042 
000000 
015010 


000000 


015010 


_MEXIT 
“IF IDN D,D 
T$TEMP=G$RADD 
.MEXIT 


-IF IDNL,D 
T$TEMP=GS$RADL 
-MEXIT 

- ENDC 


-1F IDN A,D 
TSTEMP=G$RADA 
«MEXIT 


- ENDC 

TSTEMP=~1 

«ERROR ;ILL. RADIX ‘D"' 
TSCODE=T$CODE ! TSTEMP 
MSDEF AULT NO, T$TEMP 


- ENDC 

-1F IDN NO, oo 
T$TEMP=G$NO 

° IT 

-ENDC 
TSTEMP=~1 


-ERROR ;DEFAULT ‘NO'' MUST BE ‘'YES** OR ‘NO"' 


TSCODE= TSCODE ! TSTEMP 
TSEXCP 


MSEXCP ge . TSEXCP,G$LOLIM, T$LOLIM,0 
> 


ERROR INDIRECT PAR. TOO BIG 


T$LOLIM=/2 

TSCODE=TSCODE ! G$EXCP 

a apaaete ! G$LOLIM 
FB, 

FSLoLin-o 


IF 
* ERROR :ILL. DEFERRED MODE 
- ENDC 


-ENDC 
MSEXCP ob rink aac -GSHILIM, T$HILIM,~1 


IF LT G$OFSIZE- 
yy Se : INDIRECT PAR. TOO BIG 


-ENDC 

TSHILIM=/2 
T$CODE=T$CODE ! G$EXCP 
eee TSEXCP ! G$HILIM 


a @, 


SEQ 0351 


| 
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177777 


015010 


015010 


015010 


015010 003042 


015012 


015012 015234 


015014 


015014 177777 


or ee 


TSHILIM==1 
TERROR ;ILL. DEFERRED MODE 
ENDC 


MSCNTOP <>,<T$CODF> 
-1F NB 
-IF NE ISSFT - F 


$BGN 
-ERROR ; ‘'COUNT’’ OPTION VALID ONLY IN S.wW. QUES. 


-MEXIT 
- ENDC 
TSCODE= =T$CODE ! G$CNTOP 


M$WORD <TSCODE,PTM.SNUM,-1,TS$LOLIM, TSHILIM> 
-MCALL MEGNINS 

. IRP N,<T$CODE,PTM. SNUM,-1,T$LOLIM, T$HIL IM> 
MSGNINS <.WOPD N> 


. ENDM 
MSGNINS <.WORD TSCODE> 
IF LT SVCINS 

-WORD_  TSCODE 

»MEXIT 

~ ENDC 

.IF EQ SVCINS 

.WORD TS$CODE 

»MEXIT 


~ENDC 
-IF GT SVCINS 
IST 


ane «NLIST 
M$GNINS <.WORD PTM.SNUM> 
IF LT SVCINS 
«WORD PTM.SNUM 
-MEX 
- ENDC 
-IF EQ SVCINS 
-WORD  PTM.SNUM 
-MEXIT 


- ENDC 
-IF GT SVCINS 
-LIST 


eNLIST 
- ENDC 


M$GNINS <.WwORD -1> 

~IF LT SVCINS 

-WORD -1 

-MEXIT 

~ENDC 

-IF EQ SVCINS 
. WORD 

-MEXIT 

-ENDC 

rate SVCINS 


] 


-1 


. WORD 


. WORD 


TSCODE 


PTM. SNUM 


SEQ 0352 


-——- 
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nS? «WORD <1 


-ENDC 
015016 M$GNINS <.WORD TS$LOLIM> 


015016 000000 «WORD T$LOLIM 
-MEXIT 


-ENDC 
-IF GT SVCINS 
«LIST 


«WORD T$LOLIM 
»NLIST 


- ENDC 

015020 M$GNINS <.WORD TS$HILIM> 
-IF LT SVCINS 

ots TSHILIM 


| 

ZENDC 

TIF EQ SVCINS 
| -IF EQ SVCINS 
015020 177777 WORD TSHILIM 


“IF GT SVCINS 


«WORD TS$HILIM 
eNLIST 


-IF NE TSEXCP 
M$WORD TS$EXCP 


-IF NB 
M$WORD </2> 


38 015022 GPRMD PTM.S2,PT.SNUM+2,D,-1,0,-1,NO 
-MCALL M$RADIX,MSDEFAULT ,MSEXCP,.M$WORD ,M$CNTOP 


“IF EQ T$GMANID 
-ERROR sASCII RADIX VALID ONLY ON ‘'GMANID"' 


- ENDC 

000000 T$TEMP=PT . SNUM+281 
-IF NE TSTEMP & 1 
-ERROR ;ODD OFFSET 


-IF LT G$OFSIZE-PT.SNUM+2 
«ERROR ;OFFSET TOO BIG 


- ENDC 
004002 TSCODE=G$PRMD + <PT.SNUM+2 * GSOFFSET> 
015022 M$RADIX D,TSTEMP 


-IF IDN B,D 
TSTEMP=G$RADB 
MEXIT 


- CNV 


Pon me 


‘ 
i 


000040 


004042 
015022 


000000 


004042 
000000 
015022 


000000 


015022 
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-IF IDN 0,D 
T$TEMP=G$RADO 
-MEXIT 

~ ENDC 

-IF IDN D,D 
T$TEMP=G$RADD 
-MEXIT 

- ENDC 


-IF_IDN 

TSTEMP= GSRADL 

-MEXIT 

« ENDC 

-1F IDN A,D 
TSTEMP=G$RADA 

-MEXIT 

~ENDC 

TSTEMP=~1 

«ERROR ;ILL. RADIX ‘D"' 
TSCODE=T$CODE ! TSTEMP 
MSDEF AULT NO, T$TEMP 
-I1F IDN YES,NO 
TSTEMP=G$YES 

-MEXIT 


-IF IDN NO,NO 
TSTEMP=G$NO 
-MEXIT 


-ERROR ;DEFAULT ‘NO'' MUST 6. ‘'YES'* OR ‘NO"' 
TSCODE=T$CODE ! TSTEMP 
TSEXCP=0 
MSEXCP TSCODE,TSEXCP,G$LOLIM, T$LOLIM,0 
-IF IDN <@>,<Q> 
IF LT GSOFSIZE- 
ee : INDIRECT PAR. TOO BIG 


“ENDC 

T$LOLIM=/2 

T$CODE=T$CODE ! GSEXCP 

i ae ngrcd ' G$LOLIM 

“IF B, 

#SLoLim- =0 

“ERROR; sILL. DEFERRED MODE 


- ENDC 
M$EXCP TSCODE, TSEXCP,GSHILIM, TSHILIM,-1 
IF IDN <a@>,<-1> 


“IF LT G$OFSIZE- 
“ERROR ; INDIRECT PAR. TOG BIG 
“MEXIT 


ENDC 

TSHILIM=/2 
TSCODE=TSCODE ! G$EXCP 
TSEXCP=TSEXCP | G$HILIM 


SEQ 0354 





.—— nr nr ee — - 
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LIFF 
“IF B, 
177777 TSHiLim=-1 
-ERROR sILL. DEFERRED MODE 
“ENDC 
015022 MSCNTOP <>,<T$CODE> 
IF NB 
“MEXI1 
"ENDC 
TSCODE=TSCODE ! GSCNTOP 


015022 M$WORD <TSCODE,PTM.S2,-1,T$LOLIM, T$HILIM> 
CALL MS$GNINS 
.IRP N,<TSCODE ,PTM.S2,-1,T$LOLIM, TS$HILIM> 
1 ts <.WORD N> 
N 


f 
015022 M$GNINS Sta TSCODE> 


IF LT SVCINS 
“ate T$CODE 


. -IF EQ SVCINS 
015022 004042 «WORD TS$CODE 


-I1F GT SVCINS 


eNLIST 


, . ENDC 
015024 M$GNINS <.WORD PIM,S2> 
IF LT SVCINS 
“WORD PTM,S2 


"IF EQ SVCINS 
015024 015320 “WORD  -PTM.S2 
"IF GT SVCINS 
ST 


»NLIST 


«ENDC 
015026 M$GNINS <,WORD -1> 
-I1F LT SVCINS 
«WORD -1 
-MEXIT 
~ENDC 
IF EQ SVCINS 
. WORD 
oMEXIT 
«ENDC 


015026 177777 





| 
IF NE ISSFT = F$BGN 
“ERROR; “'COUNT’’ OPTION VALID ONLY IN S.W. QUES. 


« WORD 


- WORD 


TSCODE 


PT™.S2 


SEQ 0355 





r 
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015030 


} 
| 
015030 


015032 


015032 


39 015034 


015034 





000000 


000000 


005002 


IF GT SVCINS 
eL TST 
. WORD 
»NLiST 


- ENDC 
M$GNINS <.WORD T$LOLIM> 


-EN 
IF EQ SVCINS 

«WORD T$LOLIM 
»MEXIT 


-ENDC 
-IF GT SVCINS 
. IST 


. WORD 
eNLIST 


-ENDC 
M$GNINS <.WORD T$HILIM> 


IF LT SVCINS 
ats TSHILIM 


"IF EQ SVCINS 
“WORD  TSHILIM 
“IF GT SVCINS 


. WORD 
eNLIST 


.IF NE TSEXCP 
M$WORD TS$EXCP 
. NB 

M$WORD </2> 


GPRMD PITM.S3,PT.SNUM+4,D,-1,0,-1,NO 
ch Wahi -MSDEF AULT ,MSEXCP, méuORD; MSCNTOP 


-IF EQ T$GMANID 
- ERROR sASCII RADIX VALID ONLY ON *'GMANID** 


-ENDC 

TSTEMP=PT .SNUM+481 
-IF NE TSTEMP & 1 
-ERROR ;ODD OFFSET 
ENDC 


"IF LT GSOFSIZE-PT.SNUM+4 
-ERROR :OFFSET TOO BIG 


ms 
T$CODE=G$PRMD + <PT.SNUM+4 * GS$OFFSET> 
M$RADIX D,TSTEMP 


-IF IDN B,D 
T$TEMP=G$RADB 


-1 


TSLOLIM 


TSHILIM 


SEQ 0356 
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000040 


005042 
015034 


000000 
005042 
000000 


015034 


000000 


015034 


-MEXIT 


ENDC 
If IDN 9,D 
> nate 


-ENDC 
-IF IDN D,D 
‘ues 


-ENDC 
-IF IDNL,D 
ao. 


-ENDC 

-I1F IDN A,D 

TSTEMP=G$RADA 

»MEXIT 

. ENDC 

TSTEMP==1 

-ERROR ;ILL. RADIX ‘D"' 
T$CODE=TSCODE ! TSTEMP 
MSDEF AULT NO, TSTEMP 


IF IDN YES,NO 
TSTEMP=G$YES 
-MEXIT 


- ENDC 

-IF IDN NO,NO 
TSTEMP=G$NO 
-MEXIT 


-ENDC 
TSTEMP=~1 


«ERROR  ;DEFAULT fs MUST BE ‘'YES'’ OR ‘NO"’ 


TSCODE=T$CODE | TSTE 
TSEXCP=0 


MSEXCP TSCODE,TSEXCP,G$LOLIM, T$LOLIM,0 


-IF IDN <a@>,<0> 

-IF LT GSOFSIZE- 

-ERROR ;INDIRECT PAR. TOO BIG 
-MEXIT 

~ENDC 

TSLOLIM=/2 

TSCODE=TS$CODE ! GSEXCP 

+ pabceainaaal ' GSLOLIM 


IF B, 
T$LOL IM=0 
ogre 


-ERROR ;ILL. DEFERRED MODE 
-ENDC 


-ENDC 
MSEXCP ib seged noon, -GSHILIM, TSHILIM,~1 


IDN < 
IF LT G$OFSIZE- 
-ERROR ;INDIRECT PAR, TOO BIG 
“MEXIT 


.ENDC 
TSHILIM=/2 


SEQ 0357 


i 


wot ne Hy 


015034 


015034 


015034 


015034 


015036 


015036 


015040 


015040 


177777 


005042 


015327 


177777 
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TSCODE=T$CODE : GSEXCP 


-IF 6B, 
TSHILIM==1 


c 
- 


bie idem ! GSHILIM 


wI1FF 
«ERROR ;ILL. DEFERRED MODE 
ENDC 


~ENDC 
MSCNTOP <>,<T$CODE> 
F NB 


* 
IF NE I$SFT = FS$BGN 
ERROR ; ‘‘COUNT'' OPTION VALID ONLY IN S.W. QUES. 


"MEXIT 


-ENDC 
T$CODE=TSCODE | GSCNTOP 
M$WORD <TSCODE .PTM.S3.-1, TSLOL IM, TSHIL IM> 


ge M$ 


N,<TS$CODE ,PTM.S3,-1,T$LOLIM, T$HIL IM> 
N> 


. IRP 
MSGNINS <. WORD 
M$GNINS <.WORD 


~END 

IF EQ SVCINS 
» WORD 

-MEXIT 

- ENDC 

IF $7 SVCINS 


ol SS 


-ENDC 
MS$GNINS <.WwORD 


-MEXIT 

-ENDC 

-IF <Q SVCINS 
» WORD 


~MEXIT 

« ENDC 

-IF GT SVCINS 
IST 


-ENDC 

M$GNINS <,WORD 

-IF LT SVCINS 

-WORD -=1 

-MEXIT 

-ENDC 

IF EQ SVCINS 
. WORD 


T$CODE> 


TSCODE 


«WORD TS$CODE 
eNLIST 


PT™.S3> 


PT™.S3 


«WORD PTM.S3 


SEQ 0358 


poo iniielicinemresniebaosta a 


ed PDP=11 UDA DISK FORMATT MACRO V04.00 2 
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| 
| MEXIT 
-ENDC 
IF GT 
| LIST 
| « ENDC 
MSGNINS 
IF LT 
= WORD 
MEXIT 
. ENDC 
IF EQ 
-MEXIT 


015042 


015042 000000 


-ENDC 
M$GNINS 
say UF 
- WORD 
-MEXIT 


015044 


015044 177777 


40 015046 


000000 


-E 

IF LT 
. ERROR 
. ENDC 
T$CODE= 
M$RAD I X 
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SVCINS 


« WORD 
«NLIST 
<.WORD T$LOLIM> 
SVCINS 
TSLOLIM 


SVCINS 
«WORD TS$LOLIM 


- ENDC 
-I1F GT SVCINS 
IST 


- WORD 
»NLIST 


<.WORD TS$HILIM> 


SVCINS 
TSHILIM 


SVCINS 
«WORD T$HILIM 
SVCINS 


- WORD 
eNLIST 


TSEXCP 
TSEXCP 
</2> 


GPRMD PIM.S4,PT.SNUM+6,D,-1,0,-1,NO 
Whee: -MSDEF AULT ,MSEXCP ;M$WORD ,M$CNT OP 


- ENDC 
TSTEMP=PT . SNUM+681 


T$TEMP & 1 
;ODD OFFSET 


G$OF SI17E-PT.SNUM+6 
OFFSET TOO BIG 


G$PRMD + <PT.SNUM+6 * G$OFFSET> 
D,TSTEMP 


-1 


TSLOLIM 


TSHILIM 


SEQ 0359 





J 12 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 62-25 
| HARDWARE PARAMETER CODING SECTION 


-IF IDN B,D 
df 24 antinrte 


IF IDN 0O,D 
TSTEMP=G$RADO 
MEXIT 


-MEXIT 

« ENDC 

-1F IDNL,D 
TSTEMP=G$RADL 
-MEXIT 

» ENDC 

-IF IDN A,D 
TSTEMP=G$RADA 
MEXIT 


.ERROR ILL. RADIX ‘D"' 

006042 TSCODE=T$CODE ! TSTEMP 
015046 MSDEF AULT NO, TSTEMP 
IF 1DN YES,NO 
TSTEMP=GSYES 
»MEXIT 
- ENDC 
IF _IDN NO,NO 
T$TEMP=G$NO 
-MEXIT 
. ENDC 
TSTEMP=~1 
.ERROR _;DEFAULT ‘NO'' MUST BE "'YES'' OR ‘NO’ 
TSCODE=T$CODE | TSTEMP 
T$EXCP=0 : 
MSEXCP TSCODE,TSEXCP,G$LOL IM, TSLOLIM,0 


| 
| 
| -MEX 
"ENDC 
"IF_IDN D,D 
000040 +STEMP=GSRADD 


- ENDC 

T$LOL IM=/2 
T$CODE=T$CODE ! GS$EXCP 
rere er ! G$LOLIM 


if 6, 

T$LOL IM=0 

elt 

-ERROR ;ILL. DEFERRED MODE 
- ENDC 


« ENDC 
M$EXCP TECOBE , FOE RCH. GOMEL IM, TOWEL I= 


OF SIZE~ 
2 yr} INDIRECT PAR, TOO BIG 





SEQ 0360 
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| .ENDC 
TSHILIM=/2 
TSCODE=T$CODE | GSEXCP 
TSEXCP=TSEXCP ! GSHILIM 


“IF B, 
177777 br eat 
-ERROR ZILL. DEFERRED MODE 


~ENDC 
015046 aio ¥ <>,<T$CODE> 


-1F NE I$SFT = F$BGN 
hentt 3 “'COUNT’’ OPTION VALID ONLY IN S.W. QUES. 


»MEX 
- ENDC 
> hate ! GSCNTOP 
. N 
015046 M$WORD <T$CODE,PTM.S4,-1,T$LOLIM, T$HILIM> 


-MCALL M$GNINS 
. IRP N, <TSCOOE Pm. S4,-1, T$LOLIM, TSHIL ]M> 
M$GNINS <.WORD 


-ENDM 
015046 MSGNINS <.WORD TSCODE> 


- ENDC 
-IF EQ SVCINS 
015046 006042 -WORD TS$CODE 

-MEXIT 

- ENDC 

-IF GT SVCINS 
-LIST 

«WORD TSCODE 


«NLIST 
-ENDC 
015050 M$GNINS <.WORD PTM.S4> 
-IF LT SVCINS 
° PTM.S4 
»MEXIT 
- ENDC 
-IF EQ SVCINS 
015050 015336 «WORD = PTM.S4 
-MEXIT 
- ENDC 
-IF GT SVCINS 
. IST 
«WORD PTM.S4 
«NLIST 
- ENDC 
015052 M$GNINS <.WORD -1> 
IF LT SVCINS 
-WORD -=1 
»MEXIT 
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.IF EQ SVCINS 
| 015052. 177777 “WORD =1 
| MEXIT 


- ENDC 
-IF GT SVCINS 
«LIST 
«WORD =-1 
»NLIST 


-ENDC 
015054 M$GNINS <.WORD T$LOLIM> 


- ENDC 
IF EQ SVCINS 

015054 000000 «WORD T$LOLIM 
«MEXIT 


- ENDC 
-IF GT SVCINS 
«WORD T$LOLIM 
«NLIST 


- ENDC 

015056 M$GNINS <.WORD TS$HILIM> 
-IF LT SVCINS 
ae att TSHILIM 


"IF EG SVCINS 
015056 177777 ,WORD  TS$HILIM 


“IF GT SVCINS 


«WORD TS$HILIM 
»NLIST 


"IF NE TSEXCP 
M$WORD TS$EXCP 


. NB 
M$WORD </2> 
41 015060 PTDONE : 


43 015060 ENDHRD 
-MCALL M$POP,M$GNINS, eens. MSENDERR 
015060 MSPOP T$NS, TSNESTLEV, TSTEM 
-MCALL M$GETS,MS$DECR 
IF LT T$NESTLEV 
-ERROR T$NESTLEV 3; MACRO T$NS UNDERFLOW 


M$GETS hans \TSNESTLEV, TSTEMP 
T$TEMP=T$NS1 

M$DECR TS$NESTLEV 

T$NESTLEV= TSNESTLEV=1 





SEQ 0362 


as) 
| 
| 
| 
| 
| 
| 
| 
| 
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-IF EQ FSHARD~TSTEMP 
EVEN 


015060 M$GNINS . 
IF LT SVCINS 
“EVEN 
»MEXIT 
~ENDC 
IF €Q SVCINS 
MEXIT 
~ENDC 
~IF GT SVCINS 
LIST 
-NLIST 
.ENDC 
015060 MS$GNTAG L,T$$HARD 
MCALL M$GEN 
015060 M$GEN by be posta SVCTAG 
IF LE SVCT 
015060 L10021: 
~MEXIT 
-ENDC 
LIST 
L10021: 
NLIST 
010000 S$LSYM= Te SYM 
000041 4 ree =F $END 
MSENDERR ENDHRD , TSTEMP 
-ENDC 
44 
45 NLIST BEX 
46 015960 125 116 111 PTM.UBA: -ASCIZ ‘'UNIBUS ADDRESS OF UDA" 
47 015106 125 116 111. PTM.UNIT eASCIZ ‘'UNIT NUMBER TO FORMAT"' 
48 015134 125 123 105 PTM.RES: -ASCIZ ‘USE RESIDENT FCT‘ 
49 015155 123 124 117 PTM.STP: -ASCIZ ‘STOP IF RESIDENT FCT IS BAD' 
50 015211 104 117 127 PTM.DLL: -ASCIZ ‘DOWN LINE LOAD FCT’ 
51 015234 123 105 122 . PTM.SNUM -ASCIZ ‘SERIAL NUMBER TO BE ASSIGNED (TOTAL 4 WORDS) WORD 1° 
52 015320 127 117 122 PTM.S2: eASCIZ ‘WORD 2' 
53 015327 127 117 122 PTM.S3: -ASCIZ ‘WORD 3° 
54 015336 127 117 122 PITM.S4: -ASCIZ ‘WORD 4° 
000004 DLLFCT = 4 ; DOWN LINE LOAD FCT FLAG 
000002 STPBAD = 2 ; STOP IF FCT COPY IS BAD FLAG 
000001 USERES = 1 ; USE RESIDENT FCT FLAG 





—_—-—_—-——- -—- 
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saree? SOFTWARE PARAMETER CODING SECTION 


GNSF T 
-MCALL__M$PUSH,M$INCR ,MS$GNINS ,M$GNGBL 
000040 1$SF T=F $BGN 
015346 MSPUSH TS$NS,TSNESTLEV,FSSOFT 
-MCALL M$INCR,MS$SETS 
015346 MSINCR TSNESTLEV 
000001 TSNESTLEV=TSNESTLEV+1 
015346 M$SETS T$NS,\TSNESTLEV,FSSOFT 
000005 TSNS1=F $SOF T 
010022 TS$SOF T=TSTAGNUM 
015346 M$INCR TSTAGNUM 
010025 T$TAGNUM=T$TAGNUM+ 1 
. IRP TAG, <\TS$$SOFT > 
MSGNINS <.WORD L*TAG'=L$SOF T/2> 


ENDM 
015346 ASGNINS vg L10022=L$SOF T/2> 


-IF LT SV 
«WORD L10022-L$SOF T/2 
<MEXIT 
- ENDC 
IF EQ SVCINS 
015346 000024 «WORD L10022-L$SOFT/2 
WORD 110022=L$SOFT/2 


1 
2 015346 


»MEXIT 
- ENDC 
IF GT SVCINS 
«LIST 
eNLIST 
-ENDC 
015350 M$GNGBL L$SOFT 
-MCALL M$GEN 
-IF NB,LSSOFT 
- IF NB, ° 
M$GEN L$SOFT,:,SVCGBL, 


or 
015350 MS$GEN L$SOFT.:,SVCGBL.< > 
.IF LE SVCGBL 
015350 LSSOFT:: 


LSSOFT:: 
eNLIST 


GPRMD STM.DATE,0,D,-1,9.71,YES 
Wie: »MSDEF AULT, mséxcb fswORD. MSCNTOP 


. $GMANID 
io ZASCII RADIX VALID ONLY ON ‘'GMANID** 


EN 
TSTEMP=081 
IF NE TSTEMP & 1 





i 
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-ERROR ;ODD OFFSET 


"IF LT G$OFSIZE-0 
“ERROR :OFFSET TOO BIG 


- ENDC 
000002 TSCODE=GSPRMD + <Q * GSOFFSET> 
015350 M$RADIX D,TSTEMP 


-IF IDN B,D 

T$TEMP=G$RADB 

-MEXIT 

- ENDC 

-IF IDN O,D 

TSTEMP=G$RADO 

-MEXIT 

-ENDC 

IF IDN D,D 
000040 TSTEMP=GS$RADD 

-MEXIT 

- ENDC 

-IF IDNL,D 

TSTEMP=G$RADL 

«MEXIT 

-ENDC 


-IF IDN A,D 
TSTEMP=G$RADA 
MEXIT 


-ERROR ;ILL. RADIX ‘D"’ 
000042 T$SCODE=T$CODE ! TSTEMP 
015350 MSDEF AULT YES, TSTEMP 


000010 TSTEMP=GSYES 


TSTEMP=G$NO 
-MEXIT 


E 
- ENDC 
TSTEMP=~1 
-ERROR ;DEFAULT ‘'YES'’ MUST BE ‘'YES’’ OR ‘NO"’ 
000052 TS$CODE=TSCODE ! TSTEMP 
000000 TSEXCP=0 
015350 MSEXCP TSCODE,TSEXCP,G$LOL IM, T$LOLIM,0 


-1F IDN <@>,<0> 

-IF LT GS$OFSIZE- 

-ERROR ;INDIRECT PAR. TOO BIG 
-MEXIT 

-ENDC 

T$LOLIM=/2 

TSCODE=TSCODE :! GS$EXCP 

i +7 patentee ! GSLOLIM 


"IF B, 
000000 T$LOL im=0 
“ERROR ;ILL. DEFERRED MODE 





20g Ge pera aa NG aed 
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-ENDC 
-ENDC 
015350 MSEXCP aa -GSHILIM, T$HILIM,=1 


NDC 
TSHILIM=/2 
TSCODE=TSCODE ! GS$EXCP 
TSEXCP=T$SEXCP ! GS$HILIM 


“IF B, 
177777 bs eet 
- ERROR sILL. DEFERRED MODE 


~ENDC 
015350 ax? ¥ <>,<TS$CODE> 


IF 
-IF NE I$SFT - F$BGN 
ee ait 3 “"COUNT’’ OPTION VALID ONLY IN S.W. QUES. 


-ENDC 
T$CODE= T$CODE ! G$CNTOP 


015350 M$WORD <T$CODE,STM.DATE,-1,T$LOLIM, T$HILIM> 
-MCALL MS$GNINS 
- IRP N,<TSCODE,STM.DATE,-1, T$LOLIM, TSHIL IM> 
en me <:WORD N> 


015350 M$GNINS <.WORD TS$CODE> 
-IF LT SVCINS 
«WORD T$CODE 
EXIT 


- ENDC 
-IF EQ SVCINS 
015350 000052 -WORD TS$CODE 
~MEXIT 


-ENDC 
-IF GT SVCINS 
. IST 


«WORD TSCODE 


eNLIST 

-ENDC 

015352 M$GNINS <.WORD STM.DATE> 
-IF LT SVCINS 
-WORD  STM.DATE 
-MEXI 
-IF EQ SVCINS 

015352 015420 -WORD STM.DATE 
-MEXIT 


-ENDC 
-IF GT SVCINS 
eLIST 


-WORD STM.DATE 
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«NLIST 


| .ENDC 
015354 MSGNINS <.WORD =1> 
| IF LT SVCINS 

“WORD =1 

SMEXIT 

~ENDC 

LIF EQ SVCINS 

015354 177777 -WORD 1 

| MEXIT 

-ENDC 

.1F GT SVCINS 

-LIST 


«WORD <1 
«NLIST 


é -ENDC 
015356 M$GNINS <.WORD TS$LOLIM> 


-ENDC 
IF EQ SVCINS 
015356 000000 «WORD TS$LOLIM 
-MEXIT 
-ENDC 
IF GT SVCINS 
-LIST 
«WORD T$LOLIM 
eNLIST 
-ENDC 
015360 M$GNINS <.WORD T$HILIM> 


-IF LT SVCINS 
ne T$HILIM 


IF EQ SVCINS 
015360 177777 «WORD TS$HILIM 
-IF GT SVCINS 


«WORD TS$HILIM 
-NLIST 


-IF NE TSEXCP 

M$WORD TS$EXCP 

. NB 

M$WORD </2> 

5 015362 GPRMD STM.D2,2,D 
-MCALL M$RADIX,MSDEFAULT, 
.IF IDN A,D 


$GMANID 
— sASCII RADIX VALID ONLY ON ‘‘GMANID"' 


-~1,0,~1, VES 
$EXCP ,M$WORD ,MSCNTOP 








00000C 


001002 
015362 


000040 


001042 
015362 


000010 


001052 
00000 
015362 
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TSTEMP=281 
-IF NE TSTEMP & 1 
-ERROR ;ODD OFFSET 


- ENDC 
-IF LT GS$OFSIZE=-2 
(ys OFFSET TCO BIG 


~END 
TSCODE=GSPRMD + <2 * GSOFFSET> 
M$RADIX D,TSTEMP 
-IF IDN B,D 
TSTEMP=G$RADB 
-MEXIT 

- ENDC 

-IF IDN O,D 
TSTEMP=G$RADO 
-MEXIT 

« ENDC 


-IF IDN D,D 
TSTEMP=G$RADD 
-MEXIT 

-ENDC 

-IF IDNL,D 
T$TEMP=G$RADL 
oMEXIT 

-ENDC 


-1F IDN A,D 
gf ht capes 


ERROR ;ILL. RADIX ‘D" 
T$CODE=TSCODE ! TSTEMP 
M$DEF AULT YES, T$TEMP 
IF _IDN YES,YES 
TSTEMP=G$YES 
»MEXIT 

-ENDC 

IF TDN NO,YES 
TSTEMP= G$NO 

MEXIT 


CNDC 
TSTEMP=-1 
-ERROR ;DEFAULT ‘'YES’’ MUST BE ‘’YES*' OR ‘'NO" 
TSCODE=TSCODE | TSTEMP 
TSEXCP=0 
MSEXCP TSCODE,TSEXCP,G$LOLIM, T$LOLIM,0 
‘ IDN <a@>,< 


-ERROR ;INDIRECT PAR. TOO BIG 
~MEXIT 


- ENDC 

T$LOLIM=/2 
TSCODE=TSCODE ! GS$EXCP 
TSEXCP=T$SEXCP ! GS$LOLIM 


oi? 6B, 
T$LOL IM=0 


SEQ 0368 





cf-ccc - — 


-C2UDEAO PDP=11 UD 


SOF TWARE PARAME T 


015362 


{ 
015362 


015362 


015362 


015362 


015364 


015364 


F 13 
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A DISK FORMATT MA 
ER CODING SECTION 
. IFF 
~ERROR ;ItLL. DEFERRED MODE 
MSEXCP TSCODE,TSEXCP,GSHILIM, T$HILIM,=1 
IF IDN <@>,<-1> 
.IF LT GSOFSIZE- 
~ERROR ; INDIRECT PAR. TOO BIG 
MEXIT 
~ENDC 
TSHILIM=/2 
TSCODE= TSCODE ' GSEXCP 
TSEXCP=TSEXCP ‘ GSHILIM 
a1 6 
177777 o> ie 
-ERROR ;ILL. DEFERRED MODE 
~ENDC 
- ENDC 
MSCNTOP <>,<T$CODE> 
.IF NE ISSFT = FSBGN 
“ ERROR : *“'COUNT’’ OPTION VALID ONLY IN S.W. QUES. 
yt 
"$CODE= =T$CODE ! GS$CNTOP 
M$WORD <TS$CODE,STM.D2,-1,T$LOLIM, T$HII IM> 
-MCALL MS$GNINS 
.IRP N,<TSCODE,STM.D2,-1,T$LOLIM, T$HIL IM> 
MSGNINS <:WORD N> 
MS$GNINS <. WORD T$CODE> 
iF CF SVCIN 
. WORD ISCODE 
MEXIT 
~ ENDC 
.1F EQ SVCINS 
001052 . WORD TSCODE 
~ENDC 
~IF GT SVCINS 
7 1ST 
«WORD 
eNLIST 
. ENDC 
M$GNINS <.WORD STM.D2> 
~IF LT SVCINS 
. WORD STM.D2 
~MEXIT 
~ENDC 
~IJF EQ SVCINS 
015467 WORD STM.D2 
~ENDC 


IF GT SVCINS 


TSCODE 


SEQ 0369 
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015366 


015366 


015570 


015370 


015372 


015372 


6 015374 


LIST 


eNLIST 


- ENDC 
M$GNINS <.WORD <1> 


IF LT 
D 
LMEXIT 
ENDC 

LIF EQ 
»MEXIT 
«ENDC 
IF GT 
ST 


177777 


SVCINS 


SVCINS 
RD 


SVCINS ° 


eNLIST 


«ENDC 
MSGNINS <.WORD T$LOLIM> 


iF 45 
. WORD 
LMEXIT 
« ENDC 
-IF EQ 
»MEXIT 
- ENDC 
olf GT 
“LIST 


000000 


-ENDC 


SVC INS 
T$SLOLIM 


SVCINS 
. WORD TSLOLIM 


SVCINS 


eNLIST 


M$GNINS <.WORD T$HILIM> 


177777 


. ERROR 


SVCINS 
TSHILIM 


SVCIN 
‘WORD T$HILIM 


SVCINS 
eNLIST 
TSEXCP 
TSEXCP 


</2> 
GPRMD S™.D3,4,0,71,0.> 


o71, YES 
M$RAD IX ,M$DEF AULT ,M$EXCP,M$WORD ,M$CNTOP 


IDNA 
-1F €Q T$SGMANID_ 
sASCI1] RADIX VALID ONLY ON ‘'GMANID** 


« WORD 


« WORD 


- WORD 


«WORD 


S™™.D2 


-1 


TSLOLIM 


TSHILIM 


SEQ 0370 
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000000 


002002 
015374 


000040 


002042 
015374 


000010 


002052 
000 
015374 


-ENDC 

-ENDC 

TSTEMP=481 

IF NE TSTEMP & 1 
ERROR ;ODD OFFSET 


-ENDC 
-IF LT GS$OFSIZE=4 
-ERROR ;OFFSET TOO BIG 


-ENDC 
TSCODE=GSPRMD + <4 * GSOFFSET> 
M$RADIX D,TSTEMP 


-I1F IDN 8,D 
TSTEMP=G$RADB 
»MEXIT 

IF IDN 0,D 
TSTEMP=G$RADO 
-MEXIT 


-ENDC 

-IF IDN D,D 
TSTEMP=G$RADD 
-MEXIT 

- ENDC 

-IF IDNL.D 
TSTEMP=G$RADL 
-MEXIT 


-ENDC 

-IF IDN A,D 
TSTEMP=G$RADA 

-MEXIT 

- ENDC 

TSTEMP=~1 

-ERROR ;ILL. RADIX ‘D”’ 
T$CODE=T$CODE ! TSTEMP 
MSDEF AULT YES, T$TEMP 
-IF IDN YES,YES 
T$TEMP=G$YES 

-MEXIT 


-ENDC 

-IF IDN NO,YES 
TSTEMP=G$NO 
-MEXIT 


- ENDC 
T$TEMP=~1 


-ERROR ;DEFAULT ‘‘YES'' MUST BE ‘'YES'* OR *NO"’ 


TSCODE=T$CODE ! TSTEMP 
TSEXCP=0 


MS$EXCP TS$CODE,TSEXCP,G$LOLIM,T$LOLIM,0 


-IF IDN <a@>,<0> 
-IF LT G$OFSIZE- 
tent ; INDIRECT PAR. TOO BIG 


-ENDC 

TSLOL IM=/2 
T$CODE=T$CODE : GS$EXCP 
Pye sche FSe RCP ! G$LOLIM 


SEQ 0371 


r serentiontieminste —— — 
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| 900000 


015374 


177777 


015374 


015374 


015374 


015374 002052 


015376 


015376 015476 


i 7ILL. DEFERRED MODE 


ND 
MSEXCP TSCODE,TSEXCP,G$HILIM, T$HILIM, -1 
.IF IDN <@>,<-1> 
-IF LT GSOFSIZE- 
~ERROR ; INDIRECT PAR. TOO BIG 
-MEXIT 


. ENDC 

TSHILIM=/2 
TSCODE=TSCODE ! GSEXCP 
TSEXCP=TSEXCP ! G$HILIM 


if 8, 
TSHILIM==1 
ore 7 ILL. DEFERRED MODE 


« ENDC 
“iy 4 <>,<T$CODE> 


IF 
-IF NE I$SFT = F$BGN 
‘Touit 3 “‘COUNT'’ OPTION VALID ONLY IN S.W. QUES. 


- ENDC 
TSCODE=T$CODE ! G$CNTOP 


.ENDC 
M$WORD <TS$CODE,STM.D3,-1,T$LOLIM, TS$HIL IM> 
-MCALL M$GNINS 

.IRP N.<T$CODE,STM.D3,-1,T$LOLIM, T$HIL IM> 
MSGNINS <.WORD N> 


EN 
M$GNINS <. — TS$CODE > 


-ENDC 
-IF EQ SVCINS 

-WORD TS$CODE 
-MEXIT 


«ENDC 
-IF GT SVCINS 
. IST 


- WORD 
eNLIST 


« ENDC 
M$GNINS og STM.D3> 


-ENDC 
IF EQ SVCINS 

-WORD STM.D3 
eMEXIT 


TSCODE 


SEQ 0372 


c---- — —— ee a 
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-ENDC 
IF GT SVCINS 
om ST 

«WORD 
«NLIST 


| 
| 
« ENDC 
015400 M$GNINS <.WORD <=1> 
IF LT SVCINS 
| -WORD =1 
.MEXIT 
-ENDC 
IF EQ SVCINS 
015400 177777 «WORD =1 
»MEXIT 


«ENDC 
-IF GT SVCINS 
. IST 


. WORD 
»NLIST 


-ENDC 
015402 M$GNINS <.WORD T$LOLIM> 


EN 
-IF EQ SVCINS 
015402 000000 -WORD T$LOLIM 
-MEXIT 
- ENDC 
IF GT SVCINS 
«LIST 
. WORD 
«NLIST 


015404 M$GNINS <.WORD T$HILIM> 


IF LT SVCINS 
att TSHILIM 


IF EQ SVCINS 
015404 177777 «WORD TS$HILIM 


“IF GT SVCINS 
.NLIST 
"IF NE TSEXCP 
M$WORD T$EXCP 
"IF NB 
M$WORD </2> 


7 015406 GPRMD S1™M.D4,6,0,~-1,0,7-1,YES 
_: ee MSDEF AULT aASEKCEMEUORD, MS$CNTOP 





S™M.D3 


-1 


TSLOLIM 


TSHILIM 


SEQ 0373 
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-IF EQ T$GMANID 
«ERROR ;ASCII RADIX VALID ONLY ON ‘'GMANID"’ 
poe 


-EN 

000000 TSTEMP=681 
-IF NE TSTEMP & i 
-ERROR ;ODD OFFSET 


-ENDC 
-IF LT G$OFSIZE-6 
-ERROR ;OFFSET TOO BIG 


- ENDC 
003002 TSCODE=G$PRMD + <6 * GSOFFSET> 
015406 M$RADIX D,TSTEMP 
IF IDN B,D 
TSTEMP=G$RADB 
-MEXIT 
- ENDC 
IF IDN 0,D 
TSTEMP=G$RADO 
-MEXIT 
- ENDC 
IF IDN D,D 
000040 co. 
-ENDC 
-IF IDNL,D 
T$STEMP=G$RADL 
-MEXIT 





"IF IDN A,D 
T$TEMP=G$RADA 
.MEXIT 
“ENDC 
TSTEMP==1 
.ERROR ;ILL. RADIX ‘D'' 
003042 TSCODE=T$CODE | TSTEMP 
015406 M$DEF AULT YES, T$TEMP 
.IF IDN YES,YES 
000010 TSTEMP=G$YES 
.MEXIT 


- ENDC 

-I1F IDN NO,YES 

TSTEMP=G$NO 

«MEXIT 

- ENDC 

TSTEMP=~1 

«ERROR ;DEFAULT ‘'YES'’ MUST BE ‘VES’ OR ‘'NO"’ 
bets TSCODE <7 SCORE ! TSTEMP 
MSEXCP TS$CODE,TSEXCP,G$LOLIM,T$LOLIM,0 
-I1F IDN <a@>,<0> 
-IF LT GS$OFSIZE- 
-ERROR ;INDIRECT PAR. TOO BIG 
MEXIT 


" ENDC 
T$LOLIM=/2 
T$CODE=T$CODE ! GSEXCP 





SEQ 0374 


ay 


SOFTWARE PARAMETER CODING SECTION 





000000 


015406 


177777 


015406 


015406 


015406 


015406 003052 


015410 
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See ! G$LOLIM 


"IF B, 
T$LOL im=0 
-ERROR sILL. DEFERRED MODE 
"ENDC 
MSEXCP TSCODE , TSEXCP, ,G$HILIM, T$HILIM, <1 


aentt INDIRECT PAR. TOO BIG 


- ENDC 

TSHILIM=/2 
TSCODE=T$CODE ! GS$EXCP 
eee ! G$HILIM 


-IF 8B, 

TSHILIM=~1 

oA FF 

-ERROR ;ILL. DEFERRED MODE 
NDC 


-ENDC 

MSCNTOP <>,<T$CODE> 

me | 3 NB 

-IF NE I$SFT - F$BGN 


-ERROR ; ‘‘COUNT'’ OPTION VALID ONLY IN S.W. QUES. 


Tae 
TSCODE= TSCODE ! G$CNTOP 


M$WORD <T$CODE,STM.D4,-1,T$LOLIM, T$HILIM> 
-MCALL MS$GNINS 

. IRP ppt tay £ S™M.D4,-1,T$LOLIM, TSHIL IM> 
MSGNINS < WORD N> 

- ENDM 
MS$GNINS <.WORD TSCODE> 
SVCINS 
hit T$CODE 


ENDC 
IF EQ SVCINS 
-WORD TS$CODE 
»MEXIT 
-ENDC 
-1F GT SVCINS 
. IST 


eNLIST 


- ENDC 
M$GNINS <.WORD STM.D4> 
JF LT SVCINS 
-WORD  STM.D4 
XIT 


- ENDC 
-IF EQ SVCINS 


« WORD 





SEQ 0375 


| 
| | 
TSCODE 


tH 
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015410 015505 «WORD STM.D4 
»MEXIT 
-ENDC 
-IF GT SVCINS 
. IST 
«WORD STM.D4 
eNLIST 
« ENDC 
015412 M$GNINS <.WORD <=1> 
-IF LT SVCINS 
«WORD =1 
»MEXIT 
-ENDC 
IF EQ SVCINS 
015412 177777 «WORD -=1 
-MEXIT 
-ENDC 
-IF GT SVCINS 
LIST 
«WORD -=1 
eNLIST 
- ENDC 
015414 M$GNINS <.WORD TS$LOLIM> 
-IF LT SVCINS 
«WORD T$LOLIM 
-MEXIT 
- ENDC 
IF EQ SVCINS 
015414 000000 «WORD TS$LOLIM 
-MEXIT 
-ENDC 
IF GT SVCINS 
»LIST 
«WORD TS$LOLIM 
«-NLIST 
015416 M$GNINS <.WORD T$HIL1M> 
-IF LT SVCINS 
-WORD  TS$HILIM 
-MEXI 
-ENDC 
-1F EQ SVCINS 
015416 177777 -WORD TS$HILIM 
SVCINS 
«WORD TS$HILIM 
eNLIST 
TSEXCP 
TSEXCP 





</2> 


+ -  - CD — a — 
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9 015420 ENDSFT 
-MCALL M$POP,MSGNINS, — 
015420 MSPOP  T$NS, TSNESTLEV, T$TEMP 
.MCALL M$GETS,MSDECR 
| “IF LT T$NESTLEV 
ERROR TS$NESTLEV z MACRO T$NS UNDERFLOW 
-MEXIT 
.ENDC 
015420 M$GETS TS$NS,\TSNESTLEV, TSTEMP 
000005 TSTEMP=T$NS1 
015420 M$DECR TS$NESTLEV 
000000 TSNESTLEV=T$NESTLEV~1 
IF €Q FSSOFT-I$TEMP 
015420 M$GNINS .EVEN 
IF LT SVCINS 
-MEXIT 
.ENDC 
.IF EQ SVCINS 
.EVEN 
-MEXIT 
.ENDC 
.IF GT SVCINS 
LIST 
.EVEN 
-NLIST 
.ENDC 
015420 MSGNTAG L,TS$$SOFT 
-MCALL M$GEN 
015420 MSGEN L,\T$$SOFT,SVCTAG 
IF LE SVCTAG 
015420 L10022: 
.MEXIT 
LIST 
10022: 
-NLIST 
010000 S$LSYM=T$LSYM 
000041 SSP T=F SEND 
ia ENDSFT, TSTEMP 
10 015420 104 101 124 STM.DATE: -ASCIZ "DATE VAX FORMAT (TOTAL 4 WORDS) WORD 1° 
11 015467 127 117 122 STM.D2: -ASCIZ ‘WORD 2' 
12 015476 127 117 122 SIM.D3: -ASCIZ ‘WORD 3° 
13 015505 127 117 122 SIM.D4: eASCIZ ‘WORD 4' 
15 015514 $PATCH:: 
16 015514 -BLKW 20 
ce q SRESESEETERESSELLELIEATENEESELLESESELELIE TELE LELELAELAETAEUSE LATTA ELAR E ETA aa 
19 : mls ae cy PATCH AREA THAT SHOULD BE INCLUDED IN ALL DIAGNOSTICS 
20 ] SIZE TO FIT YOUR OWN PREFERENC 
+! TTT TTT TEETER TTTTTLTTEEELTSTLTTTET EERE TEETER TEE ee eee 
23 015554 


LASTAD 
-MCALL MSGNINS ,M$GNGBL 


i iasiesineigiacoennenthanitiediicidiantajadbasiaiants-enitipliahinietehibiniiiianapiandaneniitaanaianame ateiidene 
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SOF TWARE PARAMETER CODING SECTION 


015554 M$GNINS_ .EVEN 
IF 4 SVCINS 


MEXIT 
-ENDC 
-IF EQ SVCINS 
- EVEN 
-MEXIT 
ENDC 
IF GT SVCINS 
IST 


ee ee eee 
| 


-EVEN 
eNLIST 
-ENDC 
000001 TSLAST=1 

-IF EQ O$SETUP 
M$WORD <0> 
— <0> 

015554 MSGNINS <. WORD TSFREE> 
-IF LT SVCINS 
.WORD TSFREE 
-MEXIT 
~ENDC 
-IF EQ SVCINS 

0715554 015602 .WORD TSFREE 
-MEXIT 


- ENDC 
-IF GT SVCINS 
cm IST 


«WORD TSFREE 
»NLIST 


- ENDC 
015556 M$GNINS <.WORD T$SIZE> 
-IF LT SVCINS 
-WORD T$SIZE 
-ENDC 
-IF EQ SVCINS 
015556 000011 «WORD TSSIZE 
-MEXIT 
-ENDC 
-IF GT SVCINS 
eLIST 


a -WORD TS$SIZE 


000000 SVCGBL=0 
015560 M$GNGBL L$LAST 
-MCALL M$GEN 
-1F NB,LSLAST 


- IF NB, 
M$GEN L$LAST,:,SVCGBL, 
NDC 


-IF B, 
015560 M$GEN L$LAST,:,SVCGBL,< > 





a nr re ee 
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SOFTWARE PARAMETER CODING SECTION 





| .IF LE SVCGBL 
015560 L$LAST:: 
.MEXIT 


»NLIST 
-ENDC 


-ENDC 
000001 T$LTNO=T$TESTNUM 
ENDMOD 


-MCALL M$POP ,MSENDERR 
-IF EQ F$BGN-1$MOD 


24 015560 


000041 | i SMOD=F SEND 
-ERROR ; MISSING ‘BGNMOD"' 
-MEXIT 
-ENDC 
015560 MSPOP —T$NS, TSNESTLEV, TSTEMP 


-MCALL MS$GETS,M$DECR 
-IF LT TS$NESTLEV 
-ERROR TS$NESTLEV ; MACRO T$NS UNDERFLOW 


015560 M$GETS TSNS,\TSNESTLEV,TSTEMP 
000000 TSTEMP=T$NSO 
015560 M$DECR TS$NESTLEV 
177777 TSNESTLEV=TSNESTLEV~1 
-I1F NE FSMOD-TSTEMP 
— ENDMOD , TS TEMP 
-EN 





LSLAST:: 


SEQ 0379 
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DEFAULT P=TABLE 


[ 

| 

aay 

| 2 015560 


015560 


3 015560 


015560 
015560 
015560 


015560 


015560 





000040 
010023 


010024 


000001 
000001 


000040 
010024 


010025 
000000 


000000 


-SBTTL DEFAULT P=TABLE 
NSE TUP 1 


-MCALL M$INCR 
-IF NE FSEND = I$SETUP 
«ERROR ; ONLY 1 SETUP! 


-IF NE TS$LAST=1 
Eanes ; “‘LASTAD’’ MUST PRECEDE *BGNSETUP"* 


- ENDC 

ISSETUP=F $BGN 
T$$PTAB=T$TAGNUM 
M$INCR  TS$TAGNUM 
4 Hey gree 


TSPCNT=1 
dee 1 


IF 
“ERROR ; MISSING # OF PTABLES 
TSPCNT=1 

- ENDC 


BGNPTAB 
-MCALL M$INCR, oie M$WORD .M$GNINS ,M$GNTAG 
IF NE F$BGN-I$SETU 
Tate : MISSING YBGNSETUP" 


“IF NE FSEND-I$PTAB 
-ERROR : MISSING ‘'ENDPTAB"’ 


. C 

I$PTAB=F $BGN 
T$PTAB=T$STAGNUM 
M$INCR  TS$TAGNUM 
T$TAGNUM=T$TAGNUM+ 1 
MSDECR _TS$PCNT 
TSPCNT=T$PCNT~1 

-IF LE TSPCNT 


M$WORD <0> 
-MCALL MS$GNINS 
.IRP N,<0> 


MS$GNINS <.WORD N> 
NDM 


of 

M$GNINS <.WORD (> 
IF LT SVCINS 

- WO 0 


-EN 
-IF GT SVCINS 
-LIST 
«WORD 

eNLIST 


SEQ 0380 


-——------—_---------- —— --—- -- 
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DEFAULT P=TABLE 


athe 


IF 

TP N,<\T$PTAB> 
MSGNINS <.WORD L'N> 
' ~ENDM 


| 





-ENDC 
010025 TS$DAT=TSTAGNUM 
015562 M$INCR  T$TAGNUM 
010026 TS TAGNUM=T$TAGNUM+ 1 


. IRP N, <\TS$DAT> 
MSGNINS <.WORD L'N=./2-1> 


015562 MSGNINS <.WORD L10025-./2-1> 
-IF LT SVCINS 
“WORD L10025-./2=1 
-MEXIT 
-IF EQ SVCINS 
015562 000007 «WORD Li0025-./2=1 
MEXIT 
IF GT SVCINS 
«LIST 
«WORD L10025-./2=1 
«NLIST 
-ENDC 
015564 M$GNTAG L,TS$$PTAB 
-MCALL M$GEN 
015564 M$GEN _L,\TS$$PTAB,SVCTAG 
IF LE SVCTAG 
015564 10023: 
MEXIT 
- ENDC 
-LIST 
L10023: 
eNLIST 
010024 T$$PTAB=T$PTAB 
015564 M$INCR T$PTNUM 
Z 000001 TSP TNUM=T$PTNUM+1 
5 015564 172150 -WORD 172150 ; UDAIP 
6 015566 000000 WORD 0 ; UNIT 0 
7 015570 000003 “WORD USERES+STPBAD ; USE RESIDENT FCT 
: 015572 000000 000000 000000 -WORD 0,0,0,0 ; SERIAL NUMBER 
10 015602 ENDPTAB 


-MCALL M$GNTAG 
-IF NE F$BGN ~ I$PT 
-ERROR ; MISSING  BGNPTAB"" 


-MEXIT 
-ENDC 
000041 I $PTAB=F SEND 
015602 M$GNTAG L, he: 
-MCALL MS8GE 
015602 M$GEN bea gBOAT- SVCTAG 


015602 





o— ee ne ee ee ee ee -_—_—_—= 
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DEFAULT P=TABLE 


110025: 
a »NLIST 


| 12 015602 ENDSE TUP 

.IF NE FSBGN = I$SETUP 
ERROR ; MISSING "BGNSETUP"’ 
LMEXIT 


~ENDC 
000041 I$SSE TUP=F SEND 
.IF NE TS$$PC = TSPTNUM 
oe" ; PTABLE COUNT INCORRECT 
0156C2 TSFREE=. 
000011 TSSIZE=.-L$LAST / 2 
000001 TSPTHV=TSPTNUM 
13 000001 ~END 
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SYMBOL TABLE 


‘ADR = 000020 G C$AUTO= 00006) C.INIT= 000020 F$AUTO= 000020 HC.RES= 000010 
/ALOCM 002474 C$BRK = 000022 C.NEXT= 000000 F$BGN = 000040 HC.RSZ= 000004 
ASKDLL 015000 C$BSEG= 000004 C.REF = 000016 FSCLEA= 000007 HC.SIZ= 000254 
ASKFIL 014345 C$BSUB= 000002 C.RING= 000010 F$DU = 000016 HC.VC = 000012 
| ASSEMB= 10 C$CEFG= 000045 C.SIZE= 000044 FSEND = 000041 HDR .MN= 00 
| ASSUMP= seeens C$CLCK= 000062 C.SNUM= 000030 FSHARD= 000004 HDR.OV= 000004 
/BITO = 000001 G C$CLEA= 000 C.TO0 = 000012 F$HW - 000013 HOE = 100000 G 
1T00 = 000001 G C$CLOS= 000035 C.UADR= 000002 FSINIT= 000006 IBE _ = 010000 G 
1T01 = Q00002 G C$CLP1= 000006 C.UNIT= 000004 FSJMP = 000050 ICONT = 000002 G 
1T02 = G C$CVEC= 000036 C.UNUM= 000020 F$MOD = 000000 IDU = 000040 G 
1T03 = 000010 G C$DCLN= 000044 C.VEC = 000006 F$MSG = 000011 IER = 020000 G 
1T04 = 000020 G C$DODU= 000051 DATE 002150 F$PROT= 000021 IFLAGS 002222 G 
1TO0S5 = 000040 G C$DRPT= 000024 DFPTBL 002130 G FSPWR = 000017 INIT1 013714 
1T06 = 000100 G C$DU = 000053 DIAGMC= 000000 FSRPT = 000012 INIT2 013736 
1T07 = 000200 G C$EDIT= 000003 DLLFCT= 000004 F$SEG = 000003 INIT3 014006 
1T08 = 000400 G CSERDF= 000055 SMOVRL 002206 FSSOF T= 000005 INIT4 014044 
1T09 = 001000 G C$ERHR= 000056 DMPROG 002204 F$SRV = 000010 INIT5 014062 
IT1_ = 000002 G CSERRO= 000060 DMTRLN 002210 F$SUB = 000002 INTBF 012750 G 
1T10 = 002000 G CSERSF= 000054 DUPERM 014300 F$SW = 000014 INTBFL 013040 
1T11 = 004000 G C$ERSO= 000057 DUPERR 014270 FSTEST= 000001 INTBIM 013461 
1T12 = 010000 G C$ESCA= 000010 DUP.VC= 001001 GETBLK 002656 INTB2M 013530 
1713 = 020000 G C$ESEG= 000005 EF .BBR= 000200 GETDMR 003110 INTB3M 013575 
1714 = 040000 G C$ESUB= 000003 EF .BBU= 000100 GETEOF 002764 INTB4M 013631 
1T15 = 100000 G C$ETST= 000001 EF .CON= 000036 G GETFCT 005364 INTHD 013074 
BIT2 = 000004 G C$EXIT= 000032 EF .FRS= 000200 GTSNUM 015010 INTM1 = =013121 
BITS = 000010 G C$GETB= 000026 EF .LST= 000100 G$CNTO= 000200 INTM2 013221 
BITS = 000020 G C$GETW= 000027 EF .MIS= 000001 G$DELM= 000372 INTMS 013253 
BITS = 000040 G C$GMAN= 000043 EF .NEW= 000035 G G$DISP= 000003 INTM4 013331 
BIT6é = 000100 G C$GPHR= 000042 EF .PWR= 000034 G GSEXCP= 000400 INTMS = =013411 
BIT? = 000200 G C$GPLO= 000030 EF .RES= 000037 G G$HILI= 000002 INTM6 = 013435 
BIT8 = 000400 G C$GPRI= 000040 EF .SDF= 000017 G$LOLI= 000001 INTR1 012552 G 
BIT9 = 001000 G C$INIT= 000011 EF .SDO= 000001 = 000000 INTR2 012616 G 
BLDCMD 002520 C$INLP= 000020 EF .SD1= 000002 GS$OFFS= 000400 INTR3 012662 G 
BLDC1 C = 0C0050 EF .SD2= 000004 GS$OFSI= 000376 IN.MS1= 003777 
BLKFND 002752 C$MEM = 000031 EF .SD3= 000010 G$PRMA= 000001 IN.MS2= 003500 
= C$MSG = 000023 EF .SHE= 000040 GS$PRMD= 000002 IN.MS3= 002000 
CF.AVL= 1 CSOPEN= 000034 EF .STA= 000040 G G$PRML= 000000 IN.MS4= 003777 
CF. .MSC= 040000 C$PNTB= 000014 ERRBLK 002166 G G$RADA= 000140 IN.RS1= 004000 
CF .OTH= 02 C$PNTF= 000017 ERRMSG 002164 G G$RADB= 000000 IN.RS2= 010200 
CF.RPL= 000001 C$PNTS= 000016 ERRNBR 002162 G G$RADD= 000040 IN.RS3= 020000 
CF.SHD= 000002 C$PNTX= 000015 ERRTYP 002160 G G$RADL= 000120 IN.RS4= 040000 
CF. THS= 019000 C$QI10 = 000377 EVL = 000004 G G$RADO- 000020 IN.WT1= 100000 
CF ..576= 000004 C$RDBU= 000007 ESEND = 002100 G$XFER= 000004 IN.WT3= 000000 
CLRBFL 002642 C$REFG= 000047 ESLOAD= 000035 G$YES = 000010 ISCAN 003170 
CLRBUF 002614 C$RESE= 000033 FCTFIL 014410 HCOMM 003144 ISCANX 003224 
CTRLRS C$REVI= 000003 FDATA 004436 HC.BF1= 000160 R= Q00100 G 
CT.AVL= 100000 C$RFLA= 000021 FFREE 002170 G HC .BF2= 000212 ISTART= 000001 G 
CT.BRL= 007000 C$RPT = 000025 FMEM 002174 HC.BSZ= 000032 IXE = 004000 G 
CT.CMD= 000004 C$SEFG= 000046 FMEMS 002176 4C.CCT= 000006 I$AU_ = 000041 
CT.LD = C$SPRI= 000041 FMERR 002310 HC.CEV= 000074 I$AUTO= 000041 
CT.MSG= 000010 C$SVEC= 000037 FMERRM 002330 HC.CMD= 000004 I$SCLN = 000041 
CT.REQ= 000020 C$TPRI= 000013 FMTDNE 005440 HC.CPK= 000100 1$DU_ = 000041 
CT.RN = 02 C.CNT = 000040 FMTERR 006062 HC.MCT= 000002 ISHRD = 000041 
CT.UNT= 000177 C.DFLG= 000022 FNAME 004422 HC .MEV= 000010 ISINIT= 000041 
C1. VEC= 000777 C.FBLK= 000026 FSIZE 002172 G HC.MPK= 000014 ] = 000041 
CYLCMP 005204 C.FBUF= 000024 FWORD 003646 HC .MSG= 000000 I$MSG = 000041 
C$AU = 000052 C.FLG = 000014 F$AU = 000015 HC.PSZ= 000060 I$PROT= 000040 
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-ISPTAB= 000041 LSLAST 015560 G MD.EXP= 100000 O$POIN= 000001 P.SFTw= 000040 
1$PwR = 000041 L$LOAD 002100 G MD.FEU= 000002 O$SETU= 000001 P.SHST= 000020 
-I$RPT = 000041 L$LUN 002074 G MD.NXU= 010000 PNT = 001000 G P.SHUN= 000016 
I$SEG = 000041 LSMREV 002050 G MD.ORD= 000040 POWDLY 013746 P.STS = 000012 
| I$SETU= ’ L$NAME 002000 G MD.SCH= 002000 PRI = 002000 G P.SZ0F= 000012 
-ISSFT = 000041 L$PRIO 002042 G SCL= 001000 PRIOO = 000000 G P.TIME= 000024 
-ISSRV = 1 L$PROT 013664 G MD.SEC= 000100 PRIO1 - 000040 G P.TRCK= 000026 
/1$SUB = 000041 L$PRT 002112 G MD.SER= 000020 PRIO2 = 000100 G P.TRLN= 000014 
| Istst = 1 L$REPP 002062 G MD.SFT= 004000 PRIO3 = 000140 G P.UADR= 000020 
JFK) 014653 L$REV 002010 G MD.SPD= 000001 PRI04 = 000200 G P.UNCL= 000034 
1 FKS 014677 L$RPT 013656 G MD.SSH= 000010 PRIOS = 000240 G P.UNFL= 000014 
| JSIMP_= 000167 LSSOFT 015350 G MD.VOL= 000003 PRI06 = 000300 G P.UNIT= 000004 
KRANTZ 005244 L$SPC 002056 G MD = 000400 PRIO7 = 000340 G P.UNSZ= 000040 
| LODM 011660 L$SPCP 002020 G = 000200 PTDONE 015060 P.UNTI= 000020 
LDERR 011740 L$SPTP 002024 G MIDERR 003014 PTM.DL 015211 P.USEF= 000020 
LDERRM 011752 L$STA 002030 G M.ERO 010627 PTM.RE 015134 P.VSER= 000044 
LDNEXT 011734 L$Sw 002150 G M.ER1 010672 PTM.SN 015234 RDERR 

LOAD 003226 L$TEST 002114 G M.ER10 011212 PTM.ST 015155 RDERRM 002411 
LOADDM 003444 L$TIML 002014 G M.ER11 011225 PTM.S2 015320 RDERR1 003710 
LOADER 003466 L$UNIT 002012 G M.ER12 011245 PTM.S3 01532 RDHIGH 002214 
LOADEX 003460 L.CHVR= 000015 M.ER13 011312 PIM.S4 01533 RDLOW 002212 
LOADE1 003326 L.CNTI= 000014 M.ER14 011332 PTM.UB 015060 RDREC 003500 
LOADM1 003356 L.CYL = 000034 M.ER15 011351 PTM 015106 RD.AT 002216 
LOE = 040000 G L.DATA= 000050 M.ER16 011371 PT.FLA= 000004 RD.SZ = 000100 
LOT = 10 G L.ERLC= 000030 M.ER17 011402 PT.SNU= 000006 READDM 004440 
L$ACP 002110 G L.EVNT= 000000 M.ER18 011421 PT.UBA= 000000 READWD 004556 
L$APT 002036 G L.GRP = 000040 M.ER19 011442 PT.UNI= 000002 REMMSG 006202 
L$AUT 002070 G L.SCTR= 000042 M.ER2 010715 P.BCNT= 000014 RESPCT 004572 
L$AUTO 014524 G L.SLOT= 000002 M.ER20 011521 P.BUFF= 000020 RESPDM 004566 
L$CCP 002106 G L.TRCK= 000041 M.ER21= 000000 P.CMST= 000020 RG.FLG= 040000 
LECLEA 014526 G L.UHVR= 000027 M.ER22 011544 P.CNCL= 000020 RG.OWN= 100000 
L$CO. «=: 002032 G L.UNTI= 000016 M.ER3 010734 P.CNT = 000006 RM.CMP 006572 
L$DEPO 002011 G L.USVR= 000026 M.ERG 010765 P.CNTF= 000014 RM.DCX 010027 
L$DESC 002260 G L.VSER= 000044 M.ERS 011007 P.CNTI= 000024 RM.DC1 007707 
LSDESP 002076 G L10000 002146 M.ER6 011031 P.CRF = 000000 RM.DC2 007755 
LSDEVP 002060 G L10001 002160 M.ER7 011070 P.CTMO= 000016 RM.DNE 006644 
L$DISP 002124 G L10002 002472 M.ER8 011121 P.CYL = 000022 RM.DIP 007005 
L$DLY 002116 G L10003 003764 M.ERQ 011172 P.ELGF= 000034 RM.D1S 007067 
L$DTP 002040 G L10004 004042 NEWTAB 014102 P.FRBK= 000034 RM.D1T 006723 
LEDTYP 002034 G £10005 004110 NODLL 014224 P.FLGS= 000011 RM.D2D 007151 
L$DUT 002072 G L10006 010416 NOGOER 014616 P.GRP = 000024 RM.D2H 007233 
LSDVTY 002224 G L10007 012614 NOGOM 014626 P.HSTI= 000030 RM.D3D 007315 
L SEF 002652 G L10010 012660 NORESP 006132 P.HTMO= 000016 RM.D3H 007377 
LSENVI 002044 G L10011 012746 NXTTAB 014234 P.LBN = 000034 RM.D4D 007461 
L$ERRT 002160 G L10012 013 ONEF IL= 000001 P_LGDT= 000014 RM.D4H 007543 
L$ETP 002102 G L10013 013662 OPENLF 003470 P.MAIN= 000020 RM.ER1 010270 
LSEXP1 002046 G L10015 014522 OP.DLE= 000002 P.MOD = 000012 RM.ER2 010324 G 
LSEXP4 002064 G L10016 014524 OP.END= 000200 P.OPCD= 000010 RM.ER3 010420 
L$EXP5 00 G £10017 014532 OP.RCV= 000005 >-OTRF= 000014 RM.ERG 010472 
L$HARD 014734 G 110020 014730 OP.SND= 000004 P.OVRL= 000034 RM.ERS 010545 
L$HIME 002120 G 10021 015060 O$APTS= 000000 P.RBN = 000014 RM.FMO 010106 
L$HPCP 002016 G L10022 015420 O$AU = 000000 P.RBNS= 000034 RM.FM1 010156 
L$HPTP 002022 G L10023 015564 O$BGNR= 000001 P.RCTC= 000035 RM.FM2 010222 
L$HW 002130 G 110025 015602 O$BGNS= 000001 P.RCTP= 000032 RM.RET 007625 
L$ICP 002104 G MAXERR= 000026 o$pU = 000000 P.RCTS= 000030 RNGLEN= 000004 
L$INIT 013672 G MD.CMP= 020000 O$ERRT= 000001 P.RGID= 000034 RSPDNE 00 
leat 002026 G MD.ERR= 040000 O$GNSW= 000001 P.RGOF= 000040 RSPDRP 004710 





I 14 
-CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE 64-5 SEQ 0385 
SYMBOL TABLE 


020000 SVCTST= 000000 T$TAGN= 010026 UDARSP 


|RSPIN 004752 SA.S3 = 012426 
RSPMWR 005012 SA.S4 = 040000 S$LSYM= 010000 TSTEMP= 000000 UDARSX 012544 
RSPNXT 004 SFTBL. 002150 G TBLERR 011572 T$STEST= 000001 UDARS1 012440 
RSPPKE 006276 SNDCMD 012010 TSTTAB 002202 TSTSTM= 177777 UDARS2 012522 
RSPPNE 0 SNDC1 =—.012032 T$ARGC= 000001 T$TSTS= 000001 UDAXXX 012540 
RSPPRE 00634 STM.DA 015420 TSCODE= 003052 T$$AUT= 010016 UF .AVL= 000001 
RSPPTW 005076 STM.D2 015467 TSERRN= 014626 TS$CLE- 010017 UF .CMR= 020000 
RSPPT2 005116 STM.D3 015476 TSEXCP= 000000 T$$DAT= 010025 UF .CMW= 010000 
RSPREF 005054 STM.D4 015505 T$FLAG= 000040 T$$HAR= 010021 UF .FRS= 000002 
RSPSTE 006514 STPBAD= 000002 T$FREE= 015602 T$$HW = 010000 UF . INA= 100000 
RSPSTS 005032 ST.ABO= 000002 $ = 000000 T$$INI= 010015 UF .LST= 000004 

11650 ST.AVL= 000005 TSHILI= 177777 T$$MSG= 010012 UF .MDL= 000006 
RUNDMX 011736 ST.CMD= 000001 T$LAST= 000001 T$$PC = 000001 UF .MLT= 000906 
RWORDT 003630 ST.CMP= 000007 T$LOLI= 000000 T$$PRO= 010014 UF .RMV= 000100 
RWRDEM 004112 S1.CNT= 000012 TSLSYM= 010000 T$$PTA= 010024 UF .RPL= 004000 
RWRDE1 003670 ST.DAT= 000010 T$LTNO= 000001 T$$RPT= 010013 UF .SCH= 002000 
RWRDE3 003700 ST.DIA= 000037 TSNEST= 177777 T$$SOF= 010022 UF ..SCL= 001000 
RWRDF1 004172 ST.DRV= 000013 T$NSO = 000000 T$$SW = 010001 UF .WBN= 000400 
RWRDF2 004230 ST.HST= 000011 T$NS1_= 000005 T$$TES= 010020 UF .WwPR= 040000 
RWRDF3 004316 ST.MSK= 000037 T$PCNT= 000000 T 014534 G UF .576= 000010 
RWRDF4 004376 ST.OFL= 000004 T$PTAB= 010024 = 000200 G URNING 002220 
RWRDM1 003720 G ST.SHE= 000003 T$PTHV= 000001 UDAIEX 012200 USERES= 000001 
RWROM2 003766 G ST = 000040 TSPTNU= 000001 UDAINT 012110 WAITMS 013644 
RWRDM3 004044 ST.SUC= 000000 T$SAVL= 177777 UDAIST 012204 X$ALWA= 000000 
SA.ERC= 003777 ST.WPR= 000006 T$SEGL= 177777 UDAIXX 01241 X$FALS= 000040 
SA.ERR= 100000 SVCGBL= 000000 T$SIZE= 000011 UDAIXY 012422 X$OFFS= 000400 
SA.GO = 000001 SVCINS= 000000 T$SUBN= 000000 UDAI2E 012170 X$TRUE= 000020 
SA.S1 = 004000 SVCSUB= 000000 TSTAGL= 177777 UDARSD 012550 $PATCH 015514 G 
SA.S2 = 010000 SVCTAG= 000000 


- ABS. 015602 000 
000000 001 

ERRORS DETECTED: O 

VIRTUAL MEMORY USED: 28160 wO2DS na Ei PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 7% 
-B: ZUDEBO/C=C20,0]SVC34R.MLB/P:1,8:2UDEAO.DOC .B: ZUDEAO 


J 14 
~CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=-81 15:27:47 PAGE S=1 SEQ 0386 
CROSS REFERENCE TABLE (CREF vO1=05 ) 


/SPATCH 63-158 
‘ALOCM 23-188 «28-15 36-21 36-39 4 3=—s-« § 7=18 57-37 
62-334 


ASSEMB ~7 5=7 
BITO 8-258 17-20 19=25 
B1T00 8-25 8-254 


BITO3 8-25 8-254 
BITO4 8-25 8-254 
BITOS 8-25 8-254 
B1T06 8-25 8-254 
BITO7 8-25 ~25@ 


BITO9 8-25 8-254 

BIT1 8-254 17-21 19=26 
BIT10 8-254 

BIT11 8-254 

BIT12 8-254 

BIT13 8-254 

BIT14 8-254 

BIT15 8-254 ~ 


BIT9 -254 
BLDC1 24-258 24-27 
BLDCMD 24-154 27-3 30-14 40-3 40-30 
BLKFND 26-27 26-398 
8-254 
C$AU 5-78 
C$AUTO 5-74 59-17 
C$BRK 5-74 37-23 47-10 
C$BSEG 5-7# 
C$BSUB 5-74 
CSCEFG 5-7# 
C$CLCK 5-7a 
C$CLEA 5-7# 60-29 
C$CLOS 5S-7# 26-19 26-52 34-44 
C$CLP1 5-74 
C$CVEC 5-74 
C$D(LN 5-7# 
C$DODU 5-74 
C$SDRPT 5-74 
C$DU 5-74 
CSEDIT 5-74 5-49 
CSERDF 5-74 44-40 46-48 47-61 48-27 49-5 
C$SERHR 5-7# 31-4 38-15 38-22 38-29 39-17 42-13 
C$ERRO 5-784 
CSERSF 5-7 2c7ll 22-12 35-1 35-2 35-3 58-1 61-38 





‘gem sansa . ee seiceiitictaninteaesahiliia 
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| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL=-81 15:27:47 PAGE S=2 SEQ 0387 

CROSS REFERENCE TABLE (CREF v01=05 ) 

CSERSO 5-78 

iCSESCA 5-78 

CSESEG 5-74 

CSESUB 5-74 

CSETST S-74& 61-45 

CSEXIT 5-78 54-39 57-59 60-17 61-36 

C$GETB 5-74 34-1 34-6 34-26 34-33 34-40 34-48 34-51 

CSGE TW 5-74 26-32 

CSGMAN 5-7# 57-41 

C$GPHR 5-7# 56-9 

C$GPLO 5-74 

CSGPRI 5-74 

CSINIT 5-78 58-9 

C$INLP 5-74 

CSMANI 5-74 

CSMEM 5-78 55-2 

C$MSG 5-7# 22-18 35-8 35-13 35-18 43-40 50-6 50-11 50-17 50-28 

CSOPEN 5-74 26-24 33-1 

C$PNIB =5-7# 35-6 35-7 35-11 35-12 35-16 35-17 37-21 37-31 41-26 43-37 43-38 43-39 50-4 
5C-5 50-9 50-10 50-14 50-15 50-16 50-20 

CSPNTF 5-74 41-1 61-25 61-34 

CSPNTS 5-74 41-7 41-8 41-9 41-10 41-11 41-12 41-13 41-14 41-15 41-16 41-19 41-23 

CSPNIX 5-74 39-20 50-21 50-22 50-25 

c$Ql10 5-74 


C$RDBU 5-7# 


C$RFLA 5-7 


C$RPT 5-78 52-36 

C$SEFG 5-7# 

C$SPRI 5-74 

C$SVEC 5-74 

C$TPRI 5-7# 

C.CNT 7-354 17-38 37-19% 37-18% 37-20" 38-48 38-5* 57-31* 57=32* 


2a e966 26-26 26-29% 26-47 26-51* 57-39% 
29-10 29-14% 29-15% 30-22e 32-19% 37-10 37-14 37-335" 38-3* 38-10 38-34 
45-27% 57-9 57-10 


44-24 44-25 56-20 57-3 57-4 

24-29 38-27 57-10 57-11 

28-18% 37-9 45-15 46-24 46-36 47-36 50-23 57-7 57-8 
40-15 40-16 40-17 


47-14 56-16 57-4 57-5 
37-13 44-27 44-29 57-5 57-6 





| L 14 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL=81 15:27:47 PAGE S=3 SEQ 0388 
CROSS REFERENCE TABLE (CREF V01-05 ) 


25-25 

o7-5 = 40-5 40-32 

44-29 

29-10 29-14. 30-22 4527 
32-19 


29-15 37-14 38-3 

27-7 38-10 38-34 39-3 
37-10 «37-33 44-33 

56-4 56146. 57-44 

40-18 40-19 40-20 = 40-21 
62-34 62-58 

30-17 36-23% 36-33 


30-16 36-22 36-30 40-8 
30-15 36-32* 40-9 


54-41 
54-33 


5-25 7-23 8-12 22-10 35-5 35-10 35-15 35-30 43-36 50-3 50-8 50-13 50-19 
52-10 53-8 54-8 54-39 57-59 iy ot 60-17 60-31 61-9 61-24 61-36 61-45 


62-4 62-15 63-2 63-24 64-2 - 64- 64-10 64-12 
60-8 60-29 
5-7 5-7 5-7 5-7 5-7 5-7 5-7 5-7 5-7 5-7 5-7 5-7 5-7 
5-7 5-74 5-25 7-23 8-12 22-18 35-8 35-13 35-18 35-30 43-40 50-6 50-11 
50-28 52-3 52-22 52-36 54-39 57-59 58-9 59-17 60-17 60-29 60-71 61-9 61-24 








= 
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SEQ 0389 
CROSS REFERENCE TABLE (CREF VO1-05 ) 
61-24 61-246 61-36 61-45. 61-45 61-47 626 62-43 63-9 63-24 64-2 64-3 64-10 64-12 
FSHARD 5-7 62-15 62-29 62-31 = 62-32. 62-35 62-43 
F SH 5-78 7=10 7-17 
FSINIT 5-7 54-8 58-9 
FSIMP = 55=7# = 52-22 $2=22 54=39 «= 57-59 60-17 6 I= 
FSMOD = 5=7# 5~25 7-23 8-12 35-30 = S23 60-31 61-9 61-47 62-4 63-24 
FSMSG 5-7 = 22-10 22-18 3 35+5 35-8 35-10 = 35-1 35-15 35-18 «= 43-36 = 43-40 503 50-6 50-8 
11 50-13 50-17, 50-19) 50-28 
FSPROT 5-7 53-8 53-14 
FSPWR 5 =7# 
FSRPT 5-7 52-10 52-36 
F$SE 5-74 
FSSOFT 5-74 63-2 63-9 
FSSRV 0 5=7# 
F$SUB«5=7# 
F SSW 5-74 7-19 7-21 
FSTEST 5-7# 61-24 61-45 
FCTFIL 26-26 57-41 58-5# 
FDATA 34-11 34-16 = 34-50" «= 34-53" 35-28 
FFREE 19-10# 23-18 23-228 55-2e = 55-3 57-56 
FMEM 19-12  57-56* 
FMEMS 19-134 57-57 
FMERR 22-114 23-20 
FMERRM 22-11 22-144 
FMTDNE 39-10 41-14 
FMTERR 39-15 42-18 
F 33-1 35-6 35-11 35-16 35-26 
FSIZE 19-114 23-19% 55-3* = 5§5-5e = 57-57 
WORD 34-10 34-12 34-484 
GSCNTO 5~7# 
GSDELM 5-7# «= 48-21“ 54=45 
G$DISP 5-7 
GSEXCP 5-74 
G$HILI 5~7# 
G$SLOLI 5-74 
G$NO 5-74 57-41 62-37 62-38 62-39 62-40 
GSOFFS 57H = 57-41 62-26 G2=27? G28 L-S0 62-34 62-37 G2-SB_ 62-39 2-40 63-4 63-5 63-6 
GSOFSI S-7# = S741 62-26 62-27 62-28 62-30 62-34 62-37 62-38 62-39 62-40 63-4 63-5 63-6 
GSPRMA 5-74 62-26 
GSPRMD 5-7 57-41 62-27 62-37 62-38 62-39 62-40 = 63-4 63-5 63-6 63-7 
GSPRML 5-7# 62-28 62-30 62-34 
GSRADA 5-74 57-41 
G$RADB 5-7# 
G$RADD 5-74 62-27 62-37 62-38 62-39 62-40 63-4 63-5 63-6 63-7 
GSR 5-7# 62-28 62-30 62-34 
GSRADO 5-7# 62-26 
G$XFER 5-74 62-29 62-31 62-32 62-35 
G$SYES _5-7# 2-26 = 62-27 62-28 «= 62-30 62-34 63-4 63-5 63-6 63-7 
GETBLK 26-164 40-27 
GETDMR 27-14 38-39 39-21 = 44-34 
GETEOF 26-33 26-434 
GETFCT 39-8 40-254 
GTSNUM 62-32 62-364 
HC.BF1 10-30 10-31 40-4 40-31 
HC.BF2 10-314 10-33 27-4 39-4 39-20 40-26 = 41-3 42-1 43-37 43-38 








| cZW0EAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 Pate S+5 SEQ 0390 
CROSS REFERENCE TABLE (CREF VO1-05 ) 

HC.BSZ 10-118 10-31 10-33 25-20 25-22 

the 10-284 10-29 45=22* 45-23 

HC.CPK 10-294 10-30 24-20 24-23 24-29% = 24-31% = 25-198 = 25-20" = 350-15" 50-16" 30-178 


HC.MEV 10-254 10-26 

HC.MPK 10-274 10-28 24-18 24-20 30-20 38-13 38-20 38-27 45-16 
HC.MSG 10-214 10-22 10-23 24-19% 

HC.PSZ 10-10 10-28 10-30 24-24 45-18 45=22 

HC.RES 10-134 10-33 28-17 


5 
I$AUTO 3=— 5 =7# 59-108 59-178 
4 5-7# 60-84 60-17 60-294 


$HRD 62-154 62-434 
NIT 5-74 54-84 54-39 57-59 58-94 
$MOD 5-78 5-25 5-254 7-23 7-234 8-12 8-124 35-30 35-304 52-3 52-34 60-31 60-314 61-9 
61-94 61-47 61-474 62-4 62-44 63-24 63-244 
1$MSG 5-78 22-104 22-184 35-54 35-84 35-108 35-134 35-154 35-184 43-364 43-404 50-34 50-64 50-84 
50-114 50-134 50-174 50-19% 50-284 


I$PTAB 5-74 64-3 64-34 64-10 64-104 


ISPWR 5-74 

I$RPT 5-74 52-104 52-36 

I$SEG 5-74 61-24 

I$SETU 5-74 64-2 64-24 64-3 64-12 64-124 

ISSFT 63-24 63-94 

I$SRV 5-74 

1$SUB 5-74 61-24 

I$TST Sosa 61-24 61-244 61-36 61-45 61-454 61-454 
ICONT 19-264 54-38 

IDU 8-254 


IE 
IFLAGS 19-24 54-32% 54-35% 54-38* 


INITS 56-94 57-59 





— 


ooo 
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CZUDEAO PDP-11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE S-6 
CROSS REFERENCE TABLE (CREF vO1=05 ) 


INITS at 


INTBIM 50-20 
INTB2M 50=21 
INTB3M. 50-22 
INTBG4M 50-25 
INTBF 46-48 
INTBFL 50-254 
INTHD 46-48 
INTM1 50-4 
INTM2 50-5 
INTMS 50-9 
INTMG 50-14 
INTMS 50-15 
INTM6 50-16 
INTR1 48-27 
INTR2 49-5 
INTR3 47-61 
ISCAN 29-104 
ISCANX 29-11 
ISR 8-254 
ISTART 19-254 
IXE 8-254 
J$SJMP 5-74 
JFKI 61-25 
JFKS 61-34 


LSAUT 5-498 
L$AUTO 3 5-49 
L$CCP 5-494 
L$CLEA 5-49 
L$CO 5-494 
LSDEPO 5-494 


L$DTYP -494 
L$DUT -494 
L$DVTY -49 
LSEF -494 
LSENVI -49# 


~494 
~49# 
-494 
~49# 


LSINIT 





56-21 


7-10 
54-84 


48-27 49-5 -50=30# 
50-32# 


29-164 


54-45 


62-154 


7=10# 


SEQ 0391 


= 
| 


C 15 
re CZUDEAG PDP=11 UDA DISK FORMATT at V04.00 23=-JUL=81 15:27:47 PAGE S-7 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


LSLADP 
LSLAST 


5 
5-494 
5 
5-494 
5-494 
5-494 
5 
5-494 
5-494 
5 

5 
5-49 
5 
5-494 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 


-49 


LA 
NW 
RR 


63-234 
31-3" 


53-84 


7-19 


57-49 
16-124 


7-174 
7-218 


44-32 


64-12 


sf=ise = 57 ™ 21 37-31 39-20 


7-198 


58-94 


44-4048 





im 


41-1 44-27 


SEQ 0392 


D 15 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE S-8 
_ CROSS REFERENCE TABLE (CREF VO1-05 ) 


LDERRM 44-40 44-474 


e 
LOADER 32-16 32-18 32-208 


LOADM1 31-4 31-94 
L 8-254 
LOT 8-254 


M.ERO 42-3 43-478 43-73 
M.ER1 43-484 43-74 


MD.NXU 13-184 
MD.ORD 13-144 
MD.SCH 13-74 
MD.SCL 13-84 
MD.SEC 13-S# 
MD.SER 13-104 
MD.SFT 13-64 
MD.SPD 13-154 
MD.SSH 13-114 
MD.VOL 13-174 

-WBN 13-124 
MD.WBV 13-134 
MIDERR 26-614 


NEWTAB 56-15 56-19 57-174 





SEQ 0393 


e--- oo eC a a 


| 
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| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE S-9 
CROSS REFERENCE TABLE (CREF VO1=05 ) 


OSAPTS 5-7# 5-49 

OSAU 5-78 5-49 

OSBGNR 5-74 5-32" © 5-49 

|O8BGNS 5-78 5-32" = 5-49 

O$SDU 5-78 5-49 

OSERRT 5-7# 5-32" 89 -5=49 

OSGNSW 5-74 S32" 85-49 > 

OSPOIN 5-74 5-32 B2329 0 S<32H 0 S@328 0 S@ 32H «32H 5249 
OSSETU 5-74 5-32" = 5-49 63-23 

ONEFIL  1=4# 1-8 3-376 04-1 


P.BCNT 14-184 15-94 25-20" 
P.BUFF 14-194 14-20 
P.CMST 15-154 
P.CNCL 15-414 
P.CNT 15-484 
P.CNTF 14-384 15-394 
P.CNTI 15-428 
P.CRF 14-144 15-44 15-464 24-29% 38-27 
P.CTMO 15-404 
P.CYL 15-214 
P.ELGF 14-324 
P.FBBK 15-104 
P.FLGS 15-74 15-504 
P.GRP 15-224 
P.HSTI 14-3184 15-334 
P.HTMO 14-394 
P.LBN 14-218 
P.LGDT 15-524 
P.MAIN 14-5O0# 30-16* 
P.MOD 14-174 
P.OPCD 14-164 15-64 15-498  24-31* 38-13 
P.OTRF 14-254 15-144 
P.OVRL 14-514 30-17* 
P.RBN 14-354 
P.RBNS 15-264 
P.RCTC 15-274 
P.RCTP 15-254 
P.RCTS 15-244 
P.RGID 14-444 
P.RGOF 14-454 
P.SFTW ea Sd 15-114 
1 
1 
1 


SEQ 0394 


i —- ----—- - -_—-_-—-- ee en 


F 15 


“CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-yUL=81 15:27:47 PAGE 5-10 
“CROSS REFERENCE TABLE (CREF v01=05 ) 


S 
mn 
™~ 
—* 
w 
i 
Ww 
v) 
R 


P. 
/PLUNTI 14-308 15-324 





IPLVSER 15=368 
PNT 8-254 
/POWDLY 54-448 54-47 
PRI 8-254 
PRIOO 8-254 
PRIO1 8-254 
PRIO2 8-254 
PRI03 8-254 
PRIO4G 8-254 
PRIOS 8-254 
PRI06 8-254 


RD.AT 19-214 34-19 36-25* 
RD.SZ 36-18 36-20 36-464 





62-28 62-28 62-30 62-30 62-30 62-34 
62-37 62-38 62-38 62-38 62-39 62-39 
62-26 62-26 62-26 
62-27 62-27 62-27 


36-35* 36-36% 
36-17% 


51-8 


62-34 
62-39 


62-34 
62-40 


62-40 


62-40 


SEQ 0395 


e— a a 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


16-404 


43-128 
43-328 
43-368 
43-424 
43-434 
43-448 


43-220 
46-25 





46-37 50-24 
38-23 38-30 39-18 42-15 
37-35 38-40 39-22 40-24 40-41 
35-14 
35-24 
35-3 35-204 
35-16 35-214 
7-218 22-184 35-84 35-134 35-184 43-404 50-64 50-114 
57-4148 58-94 59-174 60-294 61-454 62-434 63-94 
40-23 40-39 45-1464 


50-284 


52-568 


SEQ 0396 


57-41 


H 15 
SEQ 0397 


16-354 


/CROSS REFERENCE TABLE (CREF VO1=05 ) 
1STM.D2 63-5 
/STM.D3 63-6 
STM.D4 63-7 
STM.DA 63-4 


} 
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— 
! 
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vv Re Re MR me OTST TT Me TOR NMR ROO OO 
CEP ECE eee Se PEF eee PEEP TRC CRP SETS ee Eee eS 
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vy-wroessss terre DO rrr rT RK TTR MO EE NM OU ROR ee 
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3 
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MIAN O laviavietl sl elealLelelelee ease eek a a a a ae aed 
AXAAAAAXAAN OoOmMmoPrMr) an UO K NANOS O-ru 
THVT ITTT T 


AAAAAAAA BOM MAAAAAARAKA WO UO NANOS Oon-m 
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cf £ be OS CS SS ELE CECE EeE RES EC ECE P ESE eee ee Se ee eee 
WWM AAAI OBL IDO TMD WAWAALALAUIV CO & STIL NAA WALA LAU. BR OD COO OF ee er 

MONO CQ CUM MIM MRI RY I I RY OY) OP AT OT 


AAARAAXAAOAOO MAA OOA AA Or- 00 —UDDMNCUR. © Oo-mw 
NRvrayrysysysssss  — DWDM IT TOK NOR HR ME RK NK NK NK OD OO 
orptrtrttetretret+ttttevtr_tte tie tvetetrortrtterte tt tb ppt beeptroee 
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Ve) MANO CUCU MI MII SSDI II IND wo SP A Sr wr 
3 
ARXAXAAAXAAAAA AO AAAAAAOO— CO —UDDWMNOR © O-mw 
vasyessrr NOON rr TOR NOR Rr EE NN OO RO 
portrtetpretrteretretrrettrertttperrrtrttrepetrt be_edbtedvetvetvoeeoet 
CUAIA A AWA AAA. BR. WV OT MLA LA AW ALAA BR. QUO TLL AWA WA ALAWAR. 00 00 O OD ee 
oO MMO CUCU IID BOI SID OI IY AP NS rr 

R coe 
DR ADAAXAAXAXAD TARAAOO — uN — — NOR OURO oO-™m 
Merry OOM TIO KN RK NUVOR RR RK RK NMA RK NR R DOO 
qaerotret ttretrtetrtetptr_ettietetti treteti tv tet etv_ vt tbetdvuevretvenoe 
RMWMM IAA AIA. DOM MAA AAAI OOO O ST TL WA WA ALA AVI PS OD ON OD ee ee 
We) MYAUN SO CUCU CUM ID DSI BD III oP ST OP 
TRAOAAAAOAAA RABDABAABORDOA K— uy -— — NOR ORO Oe 
TT PUTT LETT TEP LTTE PT TT TORT ETT eT ETT TD 
on nani in Omen LAA DAUR Dk PIA ik Re Oa ere eee 

MNO CU RU CUNY AID IID IY rr Sr rr or 
Go Y 
28 z 
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/ CROSS REFERENCE TABLE (CREF v01-05 ) 


SVCSUB 
SVCTAG 


SVCTST 


41-13 
41-14 
41-16 
41-19 


5 
64-24 





Wr 
LF ARRAS 


35-104 


35-13 


41-14 41-14 
41-15 41-15 
41-16 41-16 
41-19 41-19 
41-26 41-26 
42-13 42-13 
43-38 43-38 
43-39 43-39 
44-40 44-40 
47-10 47-10 
48-21 48-21 
48-27 48-27 
50-4 50-4 

50-5 50-5 

50-9 50-9 

50-10 50-10 
50-14 50-14 
50-16 50-16 
50-20 50-20 
50-21 59-21 
50-22 50-22 
50-25 50-25 
54-34 54-34 


56-9 56-9 
57-41 57-41 
58-1 58-1 


62-27 62-27 
62-28 62-28 
62-34 62-34 
62-37 62-37 
62-39 62-39 
62-40 62-40 
63-4 63-4 
63-5 63-5 
63-7 63-7 
63-23 63-25 
7-21 7-21 
43-40 43-40 
50-28 52-36 
60-29 60-29 


35-15 35-18 


43-364 


43-40 


50-34 


50-6 


50-84 


SEQ 0398 


41-14 
41-15 


50-11 


pre 


| 
| 
| 


| 


| 
| 
j 
| 
| 


TS$PRO 


TSSPTA 
TS$RPT 


TS$SOF 


TS$Sw 
TS$TES 


TSARGC 


TSCODE 


TSERRN 


TSEXCP 
TSFLAG 
TSFREE 
TSGMAN 
TSHILI 


TSLAST 
TSLOLI 


TSLSYM 


T$L TNO 
TSNEST 


J 
'CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE S=14 
/CROSS REFERENCE TABLE (CREF VO1=05 ) 


64-34 


a Gee 


Ween AR em hE 
NAWO RON ODO 
2 RR 


oa 


#tie)etoprete 
WON He yn 
Bd 


R 


AON YW SE WW 
—-DOWOOWUYIN NS 
N-ORO-OURWO 


62-384 
57-594 


62-384 


5-49 
5-64 


5-49 


62-394 
60-17 


62-394 


SEQ 0399 


50-154 


62-404 
60-174 


62-404 


| K 15 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V046.00 23=JUL<-81 15:27:47 PAGE S=-15 SEQ 0400 
CROSS REFERENCE TABLE (CREF v0O1=-05 ) 


| oes 62-31 62-32 62-35 62-43 62-43 62-43 62-434 63-2 63-2 63-24 63-9 63-9 63-9 
| TSNSO ety 7-23 8-124 35-30 43-364 43-40 50-34 50-6 50-84 50-11 50-134 50-17 50-194 50-28 


5 
TENS] 7-108 7-17 7-198 7-21 22-104 22-18 35-54 35-8 35-104 35-13 35-154 35-18 52-10 52-36 
53-84 53-14 54-84 58-9 59-104 59-17 60-84 60-29 61-244 61-45 62-154 62-29 62-31 62-32 


ae 64-24 64-3 64-3 64-34 
TSPTAB 64-3 64-34 


TSPTNU 5-784 64-3 64-34 64-12 64-12 


T$TAGN 5-74 7-10 7-10 7-104 7-19 7-19 7-19% 22-10 22-10 22-104 35-5 35-5 35-54 35-10 
35-10 35-104 35-15 35-15 35-154 43-36 43-36 43-364 50-3 50-3 50-34 50-8 50-8 =< 50-84 
50-13 50-13 50-134 50-19 50-19 50-194 52-10 52-10 52-104 53-8 53-8 53-84 54-8 54-8 
54-84 59-10 59-10 59-104 60-8 60-8 60-84 61-24 61-24 61-244 62-15 62-15 62-154 63-2 
63-2 63-24 64-2 64-2 64-24 64-3 64-3 64-3 64-3 64-354 64-34 

TSTEMP 6-8 6-8 6-84 6-84 7-17 7-174 7-21 7-214 ?=23 7-23 22-18 22-184 35-8 35-84 
35-13 35-134 35-18 35-184 35-30 35-304 43-40 43-404 50-6 50-64 50-11 50-114 50-17 50-174 
50-28 50-284 52-22 52-224 52-36 52-364 53-14 53-144 54-39 54-394 57-41 57-41 57-41 57-414 


TSTEST 5-78 61-24 61-24 61-244 63-23 
TSTSTM 5-78 22-11 22-12 22-18 26-19 26-24 26-32 26-52 31-4 33-1 34-1 34-6 34-26 34-33 
34-40 34-44 34-43 34-51 35-1 35-2 35-3 35-6 35=7 35-8 35-11 35-12 35-13 35-16 


50-15 50-16 50-17 50-20 50-21 50-22 50-25 50-28 52-36 54-33 54-36 54-39 54-41 55-1 
35-2 56-9 57-41 57-59 58-1 58-9 59-17 60-17 60-29 61-25 61-34 61-36 61-38 61-45 
Tersts 5-7 61-244 


UDAIXX 47-24 47-35 47-45 47-55 47-614 
UDAIXY 47-19 47-30 47-40 47-50 47-624 


UDARSD 47-17* 47-28% 47-38% 47-48% 48-19% 48-22 49-1648 
UDARSP 47-18 47-29 47-39 47-49 48-194 





L15 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE S-16 ; SEQ 0401 
CROSS REFERENCE TABLE (CREF vO1=05 ) 


URNING 19-22 37-34% 44-19% 44-35" 61-29 
USERES 7-14 62-28 Fe 64-7 


5 
XSOFFS 5=7# 62-29 62-31 62-32 62-35 
X$TRUE 5 62-35 


aes ainhemnnsi 
M 15 

| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE M=1 SEQ 0402 
CROSS REFERENCE TABLE (CREF VvO1-05 ) 


ND 8-34 
ASSUME Sa} 44-24 57-3 57=4 57-5 57-6 57-7 57-8 57-9 57-10 57-11 57-13 57-14 57-15 


2-3 61-9 62-4 
5-10 35-15 43-36 50-3 50-8 50-13 50-19 


BNCOMP 26-33 54-34 54-37 54-42 
BREAK 37-23 47-10 


CLOSE 26-19 26-52 34-44 
DELAY 48-21 54-45 


61-47 63-24 


f~25 35-30 60-31 
35-13 35-18 43-40 50-6 50-11 50-17 50-28 


ENDMSG 22-18 35-8 


ERRDF 44-40 46-48 47-61 48-27 49-5 
ERRHRD 31-4 38-15 38-22 38-29 39-17 42-13 
ERRSF 22-11 22-12 35-1 35-2 35-3 58-1 61-38 


19= 
EXIT 52-22 54-39 57-59 60-17 61-36 
GETBYT 34-1 34-6 34-26 34-33 34-40 34-48 34-51 


GPRMD 57-41 57-414 62-27 62-37 62-38 62-39 62-40 63-4 63-5 63-6 63-7 


52-224 54-39 54-39% 57-59 57-594 60-17 60-174 61-36 61-364 
M$CNTO 57-41 57-414 62-26 62-264 62-27 62-274 62-28 62-284 62-30 62-304 62-34 62-344 62-37 62-37# 





(— a en —— 


N 15 
CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE M=2 SEQ 0403 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


62-38 62-384 62-39 62-394 62-40 62-404 


63-4 63-44 63-54 63-6 63-64 63-7 63-74 
MSCOUN 35-6 35-64 35-7 35-78 35-11 35-114 35-12 35-12 
41-1 41-14 

41-1 41-13 


ce «35-16 35-164 35-17 35-174 37-21 


MSDECR 7-17 7-174 7-21 7-214 7-23 7-234 22-18 22-184 35-8 35-84 35-13 35-134 35-18 35-184 
35-30 35-304 43-40 43-408 50-6 50-64 50-11 50-114 50-17 50-174 50-28 50-284 52-36 52-364 
53-14 53-148 58-9 58-94 59-17 59-1784 60-29 60-294 60-31 60-314 61-45 61-454 61-47 61-474 


MSDEFA 57-41 57-414 62-26 62-264 62-27 62-274 62-28 62-284 62-30 62-304 62-34 62-344 62-37 62-378 
62-38 62-384 62-39 62-39% 62-40 62-404 63-4 63-44 63-5 63-54 63-6 63-64 63-7 63-74 
MSENDE 7-174 7-214 7-234 22-184 35-84 35-134 35-184 35-304 43-404 50-64 50-114 50-174 50-284 52-364 


MSERRI 22-11 22-114 22-12 22-124 31-4 31-44 35-1 35-14 35-2 35-24 35-3 35-34 38-15 38-154 
38-22 38-224 38-29 38-294 39-17 39-174 42-13 42-134 44-40 44-404 46-48 46-484 47-61 47-614 


MSEXCP 57-41 57-41 57-41% 62-26 62-26 62-264 62-27 62-27 62-274 62-37 62-37 62-374 62-38 62-38 
62-384 62-39 62-39 a 62-40 62-40 62-404 63-4 63-4 63-44 63-5 63-5 63-54 63-6 


MSEXIT S2-224 54-39 54-394 57-59 57-594 60-17 60-174 61-36 61-364 


M$GENB 57-41 57-414 
M$GETS 7-17 7-178 7-21 7-214 7-23 7-234 22-18 22-184 35-8 35-84 35-13 35-134 35-18 35-184 


M$GETT 52-22 54-39% 57-59 60-17 61-364 62-29 62-29% 62-31 62-314 62-32 62-324 62-35 62-354 


M$GNGB 5-25# 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 
5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 
5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-494 5-494 5-49 
5~49# 5-494 5-494 5-498 5-498 5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-49 
5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-498 5-494 5-494 5-494 5-494 5-494 5-498 
5-494 5-494 5-494 5-494 5-494 5-498 5-494 6-8 6-84 7-10 7-10 7-104 7-19 7-19 
7-198 8-124 19-8 19- 20-12 20-124 20-17 20-174 22-10 22-104 35-5 35-54 35-10 35-10" 
35-15 35-154 43-36 43-36" 50-3 50-34 50-8 50-84 50-13 50-134 50-19 50-19 52-34 52-10 
52-10# 53-8 53-84 54-8 54-84 59-10 59-10# 60-8 60-84 61-94 62-48 62-15 62-15# 63-2 


B 16 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23-JUL=81 15:27:47 PAGE M-3 SEQ 0404 
/CROSS REFERENCE TABLE (CREF v01-05 ) 
[MSGNIN 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 
5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 
5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 5-49 
5-49 5-49 5-49 5-49 5-49 5-498 5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-494 
5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-494 “5-494 5-494 5-494 5-494 
5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-494 5-49R 5-494 5-494 5-494 5-494 5-494 
5-498 5-494 5-494 5-494 5-494 6-8 6-8 6-84 6-84 7-10 7-104 7-19 7-19% 20-12 
20-12 20-124 20-124 20-17 20-17 20-174 20-174 22-11 22-11 conti 22-11 22-114 22-114 22-114 
22-11% 22-114 22-12 22-12 2e-12 22-12 22-124 = =—22=124 = =— 22-124 = 22-124 = 22-12 = 22 18 22-184 26-19 
26-19% 26-24 26-24 26-244 26-244 26-32 26-32% 26-324 26-33 26-334 26-52 26-524 31-4 31-4 
31-4 31-4 31-44 31-44 31-44 31-44 31-44 33-1 33-1 33-14 33-14 34-1 34-14 34-14 
34-6 34-64 4-64 34-26 34-264 34-264 34-33 34-334 34-334 34-40 34-404 34-404 34-44 34-444 
| 34-48 34-484 34-484 34-51 34-514 34-514 35-1 35- 35-1 b ad 35-14 35-14 35-14 35-14 
35-14 35-2 35-2 Lae 4 35-2 35-24 35-24 35-28 35-24 35-24 277 35-3 35-3 jo~3 
35-34 35-34 35-34 35-34 35-34 35-6 35-6 35-6 35-6 35-6 35-6 35-64 35-64 35-64 
35-64 35-64 35-7 35-7 35-7 baal 35-7 35-74 35-74 35-74 35-74 35-8 35-84 35-11 
35-11 35-11 35-11 35-11 35-11 35-118 35-118 35-114 35-114 35-114 35-12 Bb at 3 35-12 35-12 
35-12 35-12 35-12 35-124 35-124 35-128 8035-124 8 8=0—35-12k 8035-124 = 35-13 3371S 35-16 35-16 35-16 
35-16 35-16 35-16 35-164 35-164 35-164 35-164 35-164 35-17 35-17 35-17 So°17 ba 35-174 
35-174 35-174 35-174 35-18 35-184 37-21 37-21 37-21 armel 37-21 37-21 37-214 37-214 37-214 
37-21% 37-218 37-23 37-238 37-31 37-31 37-31 37-31 37-31 37-31 37-314 37-314 37-31% 37-314 


41-9 41-9 41-9 41-9 41-9 41-94 41-9 41-9 = 41-9 41-9 = 41-10 41-10 41-10 = 41-10 
41-10 41-10 41-108 = 41-108 = 41-108 = 41-108 41-108 41-11 41-17 41-11 41-17 41-11 1-11 1-118 
41-118 41-118 41-11 41-118 41-12 41-12 41-12 41-12, 41-12, 41-12, 41-124 = 41-124 = 41-128 = 41-128 
41-128 41-13 41-13, 41-734 1-13 12134113 41-134 41-134) 41-134 41-138 41-13% = 41-14 41-14 
41-14 41-140 41-140 41-14 41-14 41-14 41-168 41-168 41-164 41-15 41-15 41-15 41-15 41-15 
41-15 41-15 41-15% 41-15 41-15 41-15 41-16 41-16 41-16 41-16 41-16 41-16 41-16 = 41-164 
41-168 41-168 41-168 41-19 41-19 41-19 41-19 41-19 41-19% = 41-19% = 41-19% = 41-19% = 41-23 41-23 
41-23 41-23, 41-23 41-23% 41-234 41-234 41-234 = 41-26 41-26 41-26 41-26 = 41-26 = 41-26 )=— 41-268 
41-268 41-26 = 42-13 42-13 42-13 42-13 42-134 42-134 = 42-134 = 42-134 = 42-134 = 43-37 = 43-37 43-37 


5 
58-9 58-94 59-17 59-174 60-17 60-17 





Fs 


C 16 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE M=4 SEQ 0405 
| CROSS REFERENCE TABLE (CREF vO1-05 ) 


61-25 61-25% 61-25 61-254 61-254 61-34 61-34 61-34 61-34 61-34 61-344 61-344 61-344 61-344 
61-36 61-36 61-364 61-364 61-38 61-38 61-38 61-38 te he 61-384 oy 61-384 61-45 


61-45 62-15 62-154 62-26 62-26 62-26 62-26 62-264 2-27 a (4 62-27 2-27 62-27 62-27" 
62-28 62-28 62-28 2-284 §=62=29 62-29% 62-30 62-30 62-30 62-304 62-31 62-314 62-32 62-324 
62-34 62-34 62-34 62-344 62-35 62-354 62-37 62-37 62-37 62- 62-37 62-374 62-38 62-38 


M$GNLS 57-41 57-414 
MEGNTA a 7-178 7-21 7-214 22-18 22-184 35-8 35-84 35-13 35-134 35-18 35-184 43-40 43-404 


MSGNTE 61-24 61-244 
M$HAPT 5-49 5-494 
MSHNAP = 5549 5-494 


| 

| 

63-6 

«ae Rae 1 Sica ses eee es ee ee ee ee ee a ™ 
MSINCR 5-25 5-254 7-10 7-10 _ 7-104 7-104 7-19 7-19 7-194 7-194 8-12 


59-10 59-104 60-8 60-84 61-9 61-94 61-24 61-244 
35-74 35-11 35-11 35-11 35-114 35-12 35-12 5-12 
35-17 35-17 35-174 37-21 37-21 37-21 37-214 37-31 
39-20 39-204 41-1 41-1 41-1 41-14 41-7 41-7 
41-9 41-9 41-9 41-94 41-10 41-10 41-10 41-10# 
41-12 41-124 41-13 41-13 41-13 41-134 41-14 41-14 
41-16 41-16 41-16 41-164 41-19 41-19 41-19% 41-23 
43-37 43-37 43-374 43-38 43-38 43-38 43-384 43-39 
50-5 50-5 50-5 50-54 50-9 50-9 50-94 50-10 
50-15 50-15 50-15 50-154 50-16 50-16 50-16 50-164 
50-22 50-22 50-224 50-25 50-25 50-25 50-25 50-258 








: 
D 16 

| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL=81 15:27:47 PAGE M5 SEQ 0406 
aes REFERENCE TABLE (CREF v01-05 ) 
| 

1 


61-25 61-25 61-254 61-34 61-34 61-344 
M$PUT? 35-6 35-6 35-6 35-64 35-64 35-64 35-7 35-7 35-74 35-74 35-11 35-11 35-11 35-114 
35-118 35-118 35-12 35-12 35-12 35-12 35-12% 35-124 35-12% 35-12% 35-16 35-16 35-16 35-164 
35-16# 35-168 35-17 35-17 35-174 35-174 37-21 37-21 37-21 37-214 37-218 37-214 37-31 37-31 
| 37=31 37-318 37-31% 37-318 39-20 39-20 39-20 39-20 39-208 39-208 39-204 39-208 41-1 41-1 
41-1 41-14 41-14 41-14 41-7 41-7 41-7 41-74 41-74 41-74 41-8 41-8 41-8 41-84 
41-84 41-84 41-9 41-9 41-9 41-94 41-94 41-94 41-10 41-10 41-10 41-104 41-108 41-104 
41-11 41-11 41-11 41-114 41-114 41-118 41-12 41-12 41-12 41-124 41-124 41-128 41-13 41-13 
41-13 41-138 41-134 41-134 41-14 41-14 41-14 41-144 41-1468 41-1464 41-15 41-15 41-15 41-154 
41-154 41-154 41-16 41-16 41-16 41-164 41-164 41-164 41-19 41-19 41-19% 41-19% 41-23 41-23 
41-234 41-234 41-26 41-26 41-264 41-264 43-37 43-37 43-37 43-374 43-37 43-374 43-38 43-38 
43-38 43-384 43-384 43-384 43-39 43-39 43-39 43-39% 43-39% 43-39% 50-4 50-4 50-44 50-44 
| 50-5 50-5 50-5 50-54 50-54 50-54 -9 50-9 59-94 50-94 50-10 50-10 50-10 50-104 
| 50-104 50-19% 50-14 50-14 50-144 50-144 50-15 50-15 50-15 50-154 50-154 50-154 50-16 50-16 


M$RADI 57-41 57-414 62-26 62-264 62-27 62-274 62-28 62-284 62-30 62-304 62-34 62-344 62-37 62-374 
toe 34-3 34-14 34-6 34-64 34-26 34-264 34-33 34-334 34-40 34-404 34-48 34-484 34-51 34-514 
M$SETS 5-25 5-254 7-10 7-104 7-19 7-194 8-12 8-128 22-10 22-104 35-5 35-54 35-10 35-104 

52-10 52-108 53-8 53-84 54-8 54-84 59-10 59-104 60-8 60-84 61-9 61-94 61-24 61-244 


6 
MSSVC 22-11 22-12 22-18 = 22-18% = 26-19 26-19 = 26-24 = 26-244 = 26-32 26-32H 26-52 26-52% 31-4 33-1 
3 34 34-40 = 34-408 = 34-44 34-44H = 34-48 





6 
MSTLAB oi 22-12% 22-184 26-194 = 26-2464 = 26-324 = 26-52 = 31-44 33-14 34-14 34-64 34-264 34-334 34-404 


MSTSTL at 22-114 22-114 22-12 22-124 = 22-124 22-18 22-184 26-19 26-194 26-24 26-244 26-32 26-324 


50-4 50-44 50-5 50-54 50-6 50-64 50-9 50-94 50-10 50-10# 50-11 50-114 50-14 50-144 
50-15 50-154 50-16 50-164 50-17 50-174 50-20 50-204 50-21 50-214 50-22 50-224 50-25 50-254 


E 16 
| CZUDEAO PDP=11 UDA DISK FORMATT MACRO V04.00 23=JUL-81 15:27:47 PAGE M=6 SEQ 0407 
| CROSS REFERENCE TABLE (CREF VO1-05 ) 


| 50-28 50-284 52-36 52-368 54-33 54-334 54-36 54-364 54-39 54-398 54-41 54-414 55-1 55-18 
55=2 55-24 56-9 56-94 57-41 57-414 57-59 57-598 58-1 58-14 58-14 58-9 58-94 59-17 
59-178 60-17 60-174 60-29 60-294 61-25 61-254 61-34 61-344 61-36 61-364 61-38 61-384 61-384 


M$WORD 5-49 5-498 6-8 6-8 6-84 22-11 22-11 22-11 22-118 22-12 22-1 22-12 22-128 31-4 
31-4 31-4 31-44 35-1 35-1 35-1 35-14 35-2 35-2 35-2 35-24 35-3 35-3 35-5 
35-34 38-15 38-15 38-15 38-154 38-22 38-22 38-22 38-224 38-29 38-29 38-29 38-29% 39-17 

59-17 39-17 39-178 42-15 42-13 42-13 42-134 44-40 44-40 44-40 44-404 46-48 46-48 46-48 

| 46-484 47-61 47-61 47-61 47-614 48-27 48-27 48-27 48-274 49-5 49-5 49-5 49-54 52-22 


52-224 54-39% 57-41 57-41 57-418 57-418 57-59% 58-1 58-1 58-1 58-14 60-174 61-364 61-38 
61-38 61-38 61-38% 62-26 62-264 62-27 62-274 62-28 62-284 62-29 62-294 62-30 62-304 62-31 
62-314 62-32 62-32% 62-34 62-344 62-35 62-354 62-37 62-3574 62-38 62-384 62-39 62-394 62-40 
62-40% 63-4 63-44 63-5 63-54 63-6 63-64 63-7 63-7# 64-3 64-34 

MSXFER 62-29 62-29% 62-31 62-314 62-32 62-324 62-35 62-354 


OR 
POINTE 5-32 
POP 


18-178 23-23 24-30 24-31 25-26 26-40 26-53 30-23 315 45-29 
PRINTB 35-6 35-7 35-11 bb eal 4 35-16 35-17 37-21 37-31 41-26 43-37 43-38 43-39 50-4 50-5 
50-9 50-10 50-14 50-15 50-16 50-20 
PRINTF 41-1 61-25 61-34 
PRINTS 41-7 41-8 41-9 : - ; 41-11 41-12 41-13 41-14 41-15 41-16 41-19 41-23 
25-17 


26-16 30-12 45-14 


SOB 18-234 26-35 34-31 41-18 41-22 46-27 46-40 50-27 
SVC 5-64 5-7 

KFER Sc=22R 8956-39" 57-59% 60-178 61-364 62-32 

XFERF 62-29 

KFERT 62-31 62-35 





